Graph: R (language): Points, Lines: Upward Trend #3
X <- c(0,5,10,15,20,25,30,35)
Y <- c(2,4,13,13,23,21,32,30)
s <- 8
min <- 2
max <- 30
name <- "Radon"
plot(
X, Y,
type = "o",
col = "red",
main = paste("Sector ", s, " for ", name, sep = ""),
pch = 16,
cex = 1.4,
font.main = 2,
col.main = "blue",
xlab = paste(name, "'s Profits", sep = ""),
ylab = paste("Points from ", min, " to ", max, sep = "")
)
abline(
lm(Y ~ X)
)