R语言基础画展篇-长条图
👆 点击蓝字就可以关注“善思耳”哦~~
：Hi，大家好~~隔了一个周末又见面啦！
NO.18 长条图（bar chart）
11 May 2020上期回顾
如果有一组数据，是某个指标在四种不同疾病（A, B, C, D）中的表达水平，你想画一个图从而更加直观的比较该指标在不同疾病中均数的差别，长条图（Bar chart）会是一个不错的选择。
按惯例，首先我们创建一个新的dataframe，然后需要画出一个长条图。
例1. 创建一个dataframe
#创建一个我们所需的dataframemydata <- data.frame(disease <- LETTERS[1:4],biomarkers <- c(6, 8, 10, 14))#使用创建的dataframe中的数据做一个长条图barplot(mydata$biomarkers, names = mydata$disease)
【注释】
1. 第二行与第三行创建了一个dataframe， 其中的LETTERS[1:4]要求提取英语26个字母中的前4位，即A, B, C, D。
2. 第五行的barplot()可以创建我们所需的长条图。
————————————————
第二步，加上题目以及横纵坐标的注释。
例2. 加上题目以及横纵坐标的注释
#加上注释barplot(mydata$biomarkers, names = mydata$disease,xlab = "Diseases", ylab = "mg/ml",main = "Comparsion of means")
————————————————
第三步，要求更高了。
有些小伙伴觉得灰色太单调，各种疾病的颜色想要不一样。
那如何改变条形图的填充颜色？
例3. 改变条形图的填充颜色
#载入一个调色包“RColorBrewer”library(RColorBrewer)#在Set2中提取4中颜色colors <- brewer.pal(4, "Set2")#作条形图barplot(mydata$biomarkers, names = mydata$disease,xlab = "Diseases", ylab = "mg/ml",main = "Comparsion of means",col = colors,border = "white")
【注释】
1. 第二行载入名为“RColorBrewer”的R包。如果看过【】，大家的电脑应该已经安装好这个R包了。
2. 第四行：从“Set2”中提取了4种颜色，并保存到colors里面。
3. 第六到十行， 创建一个条形图。
————————————————
有些小伙伴喜欢素雅风格，只想要改变条形图的纹理填充，而不是颜色。
例4. 改变填充的质地（纹理）
#改变纹理填充barplot(mydata$biomarkers, names = mydata$disease,xlab = "Diseases", ylab = "mg/ml",main = "Comparsion of means",density = c(4, 8, 12, 16),angle = c(5, 60, 0, 90))
【注释】
1. 第五行的density里面的数字可以调节线条的密集程度。
2. 第六行的angle里面的数字可以调节线条的角度。
————————————————
最后，如果想要将条形图水平放置，那如何实现？
例5. 将条形图水平放置
#将条形图水平放置barplot(mydata$biomarkers, names = mydata$disease,xlab = "mg/ml", ylab = "Diseases",main = "Comparsion of means",horiz = TRUE)
【注释】
第五行的horiz = TRUE可以实现这个目标。反之，想纵向放置，需改为horiz = FALSE。
————————————————
今天的内容就到此为止，感谢各位看到最后。
到目前为止，我们已经介绍了散点/直方/饼/直条图四种基本图形，接下来还有更多有用的内容等着大家哦！
希望大家会喜欢今天我们的内容，如果学到了一些东西，请点赞转发关注哦。
- End -
往期精彩回顾
扫描二维码更精彩
“善思耳—— 让临床科研与统计变得简单！”
点击“在看”，多根头发！