Practical Tutorials
Create a dataframe
specie <- c(rep("Peach" , 3) , rep("Peanut" , 3) , rep("banana" , 3) , rep("triticum" , 3) )
condition <- rep(c("normal" , "stress" , "Nitrogen") , 4)
value <- abs(rnorm(12 , 0 , 15))
data <- data.frame(specie,condition,value)
data
ggplot(data, aes(fill=condition, y=value, x=specie)) +
geom_bar(position="dodge", stat="identity")

NA
NA
If and else if statement
Categorize value into three groups: High, Median and Low
# Using loop to categorize numerical values
for (i in 1:nrow(data)){
if (data$value[i]<5){
data$Class[i]<-"Low"
}else if (data$value[i]>=5 & data$value[i]<=10){
data$Class[i]<-"Median"
} else {
data$Class[i]<-"High"
}
}
head(data)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpQcmFjdGljYWwgVHV0b3JpYWxzDQoNCkNyZWF0ZSBhIGRhdGFmcmFtZQ0KDQpgYGB7cn0NCnNwZWNpZSA8LSBjKHJlcCgiUGVhY2giICwgMykgLCByZXAoIlBlYW51dCIgLCAzKSAsIHJlcCgiYmFuYW5hIiAsIDMpICwgcmVwKCJ0cml0aWN1bSIgLCAzKSApDQoNCmNvbmRpdGlvbiA8LSByZXAoYygibm9ybWFsIiAsICJzdHJlc3MiICwgIk5pdHJvZ2VuIikgLCA0KQ0KdmFsdWUgPC0gYWJzKHJub3JtKDEyICwgMCAsIDE1KSkNCmRhdGEgPC0gZGF0YS5mcmFtZShzcGVjaWUsY29uZGl0aW9uLHZhbHVlKQ0KDQpkYXRhDQoNCmdncGxvdChkYXRhLCBhZXMoZmlsbD1jb25kaXRpb24sIHk9dmFsdWUsIHg9c3BlY2llKSkgKyANCiAgZ2VvbV9iYXIocG9zaXRpb249ImRvZGdlIiwgc3RhdD0iaWRlbnRpdHkiKQ0KDQoNCmBgYA0KDQpgSWZgIGFuZCBgZWxzZSBpZmAgc3RhdGVtZW50IA0KDQpgYGB7cn0NCmhlYWQoZGF0YSkNCmBgYA0KDQpDYXRlZ29yaXplIGB2YWx1ZWAgaW50byB0aHJlZSBncm91cHM6IGBIaWdoYCwgYE1lZGlhbmAgYW5kIGBMb3dgDQoNCmBgYHtyfQ0KIyBVc2luZyBsb29wIHRvIGNhdGVnb3JpemUgbnVtZXJpY2FsIHZhbHVlcyANCg0KZm9yIChpIGluIDE6bnJvdyhkYXRhKSl7DQogIGlmIChkYXRhJHZhbHVlW2ldPDUpew0KICAgIGRhdGEkQ2xhc3NbaV08LSJMb3ciDQogIH1lbHNlIGlmIChkYXRhJHZhbHVlW2ldPj01ICYgZGF0YSR2YWx1ZVtpXTw9MTApew0KICAgIGRhdGEkQ2xhc3NbaV08LSJNZWRpYW4iDQogIH0gZWxzZSB7DQogICAgZGF0YSRDbGFzc1tpXTwtIkhpZ2giDQogIH0NCn0NCg0KaGVhZChkYXRhKQ0KYGBgDQoNCg==