Switched to iris data from R datasets

This commit is contained in:
Krishna Choudhary 2020-06-19 15:35:45 -07:00
parent ea3fea229f
commit d3eb7b8f4b
3 changed files with 5 additions and 3 deletions

View file

@ -1,5 +1,5 @@
#Read data in. #Read data in.
dat <- read.table("iris.csv", header= TRUE, sep = ",") dat <- iris
#Plot using 'base' graphics. #Plot using 'base' graphics.
plot(x = dat$Sepal.Length, y = dat$Petal.Length, plot(x = dat$Sepal.Length, y = dat$Petal.Length,
@ -195,4 +195,4 @@ ggplot(data = dat, aes(x = Sepal.Length, y = Petal.Length)) +
panel.border = element_rect(size = c(1,1,1,1), color = "black", panel.border = element_rect(size = c(1,1,1,1), color = "black",
fill = NA))+ fill = NA))+
xlab("Sepal Length") + xlab("Sepal Length") +
ylab("Petal Length") ylab("Petal Length")

View file

@ -50,4 +50,6 @@ server <- function(input, output) {
} }
shinyApp(ui, server) shinyApp(ui, server)