library(tidyverse)
data1 <- data.frame(
disease=letters[1:2],
newsbsn=sample.int(2,2)
# ,se=sample.int(2,2)
)
(p <- ggplot(data1, aes(x=disease, y=newsbsn)) +
geom_col(fill= "blue", colour="black") +
geom_errorbar(aes(ymin=newsbsn, ymax=newsbsn+se), width=.2))
# object se not found
data2 <- data.frame(
disease=letters[1:2],
newsbsn=sample.int(2,2),
se=sample.int(2,2)
)
(p2 <- ggplot(data2, aes(x=disease, y=newsbsn)) +
geom_col(fill= "blue", colour="black") +
geom_errorbar(aes(ymin=newsbsn, ymax=newsbsn+se), width=.2))