myawesomepkg 0.1.4__py3-none-any.whl → 0.1.6__py3-none-any.whl

myawesomepkg/TSAPY1/Print_R.py

@@ -0,0 +1,123 @@
+ 1. Print in R
+r
+Copy
+Edit
+print("Hello Boss!")
+🔹 2. Comments in R
+r
+Copy
+Edit
+# This is a single-line comment
+🔹 3. Variables in R
+r
+Copy
+Edit
+x <- 10
+y <- "Data"
+🔹 4. Concatenate Elements
+r
+Copy
+Edit
+v <- c(1, 2, 3, 4)
+print(v)
+🔹 5. Multiple Variables
+r
+Copy
+Edit
+a <- 5
+b <- 10
+c <- a + b
+print(c)
+🔹 6. Variable Names
+r
+Copy
+Edit
+user_name <- "Boss"
+user_age <- 25
+🔹 7. Data Types
+r
+Copy
+Edit
+num <- 10.5        # Numeric
+str <- "Hello"     # Character
+bool <- TRUE       # Logical
+vec <- c(1, 2, 3)  # Vector
+🔹 8. Strings
+r
+Copy
+Edit
+name <- "R Programming"
+paste("Welcome to", name)
+🔹 9. Boolean
+r
+Copy
+Edit
+is_true <- TRUE
+is_false <- FALSE
+🔹 10. Operators
+r
+Copy
+Edit
+a <- 10
+b <- 3
+a + b   # Addition
+a > b   # Comparison
+a == b  # Equal
+a %% b  # Modulus
+🔹 11. If Else
+r
+Copy
+Edit
+x <- 10
+if (x > 5) {
+  print("Greater than 5")
+} else {
+  print("5 or less")
+}
+🔹 12. List
+r
+Copy
+Edit
+my_list <- list(name="Boss", age=25, scores=c(90, 85))
+print(my_list)
+🔹 13. Matrices
+r
+Copy
+Edit
+matrix_data <- matrix(1:6, nrow=2, ncol=3)
+print(matrix_data)
+🔹 14. Data Frames
+r
+Copy
+Edit
+df <- data.frame(Name=c("A", "B"), Age=c(20, 25))
+print(df)
+🔹 15. Functions
+r
+Copy
+Edit
+add_numbers <- function(x, y) {
+  return(x + y)
+}
+🔹 16. Call a Function
+r
+Copy
+Edit
+result <- add_numbers(5, 3)
+print(result)
+🔹 17. Global Variable
+r
+Copy
+Edit
+x <- 5
+my_func <- function() {
+  x <<- 10  # Modify global x
+}
+my_func()
+print(x)
+🔹 18. Vectors
+r
+Copy
+Edit
+my_vector <- c(1, 2, 3, 4, 5)
+print(my_vector)

myawesomepkg/TSAPY1/R_Graph.py

@@ -0,0 +1,32 @@
+ 1. Line Plot
+r
+Copy
+Edit
+x <- c(1, 2, 3, 4, 5)
+y <- c(2, 4, 6, 8, 10)
+
+plot(x, y, type="l", col="blue", main="Line Plot", xlab="X-axis", ylab="Y-axis")
+🔹 2. Scatter Plot
+r
+Copy
+Edit
+x <- c(1, 2, 3, 4, 5)
+y <- c(5, 3, 6, 2, 7)
+
+plot(x, y, main="Scatter Plot", xlab="X", ylab="Y", col="red", pch=19)
+🔹 3. Pie Chart
+r
+Copy
+Edit
+slices <- c(10, 20, 30, 40)
+labels <- c("A", "B", "C", "D")
+
+pie(slices, labels=labels, main="Pie Chart")
+🔹 4. Bar Chart
+r
+Copy
+Edit
+values <- c(5, 10, 15, 20)
+names <- c("A", "B", "C", "D")
+
+barplot(values, names.arg=names, col="green", main="Bar Chart", ylab="Values")

myawesomepkg/TSAPY1/Working_Ggplot.py

@@ -0,0 +1,53 @@
+✅ Step 1: Install & Load ggplot2
+r
+Copy
+Edit
+install.packages("ggplot2")  # Run once
+library(ggplot2)
+✅ Step 2: Sample Data
+r
+Copy
+Edit
+data <- data.frame(
+  category = rep(c("A", "B", "C"), each=4),
+  subcat = rep(c("X", "Y"), times=6),
+  value = c(4, 7, 6, 9, 5, 3, 8, 4, 7, 5, 6, 2)
+)
+✅ Step 3: Basic ggplot
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value)) +
+  geom_bar(stat="identity", fill="steelblue") +
+  ggtitle("Basic Bar Chart")
+✅ Step 4: Facets
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value)) +
+  geom_bar(stat="identity", fill="tomato") +
+  facet_wrap(~ category) +
+  ggtitle("Faceted by Category")
+✅ Step 5: Geometric Objects
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value, fill=category)) +
+  geom_bar(stat="identity", position="dodge") +   # Bar chart
+  geom_point(aes(color=category), size=3, shape=21) +  # Add points
+  ggtitle("Geometric Objects: Bars + Points")
+✅ Step 6: Position Adjustment
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value, fill=category)) +
+  geom_bar(stat="identity", position=position_dodge(width=0.7)) +
+  ggtitle("Position: Dodge for Side-by-Side Bars")
+✅ Step 7: Coordinate System (Flip Axis)
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value, fill=category)) +
+  geom_bar(stat="identity") +
+  coord_flip() +
+  ggtitle("Flipped Coordinates")