df <- read.csv("C:/Users/EDDIE/Documents/R/ok1.csv",sep=',',header=T)
df
y <- t(df)
y
barplot(y, beside = TRUE, col = c("red", "blue"), main = "export data")