mirror of
https://github.com/gladstone-institutes/Bioinformatics-Workshops.git
synced 2025-11-30 09:45:43 -08:00
Switched to iris data from R datasets
This commit is contained in:
parent
ea3fea229f
commit
d3eb7b8f4b
3 changed files with 5 additions and 3 deletions
|
|
@ -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")
|
||||||
|
|
|
||||||
|
|
@ -50,4 +50,6 @@ server <- function(input, output) {
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
shinyApp(ui, server)
|
shinyApp(ui, server)
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue