nick34992
8/8/2016 - 3:26 AM

Graph: R (language): Points, Lines: Upward Trend #3

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)
)