swap.r

# Load the ggplot2 package
library(ggplot2)

# Sample data
data <- data.frame(
  x = 1:10,
  y = c(2, 4, 3, 6, 5, 8, 7, 10, 9, 12)
)

# Create a scatter plot
ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  theme_minimal() +
  ggtitle("Simple Scatter Plot") +
  xlab("X Axis Label") +
  ylab("Y Axis Label")

DoubleMonstre <- "karim le bg"

bg <- "tttt"

tr <- 'u'
z <- 4






print("wesh wesh la")