barplot绘图求助！

bmechuangye

数据请见附件。

<br />
x<-read.csv("test.csv",header=T);x</p>
<p>y<-(x[,2]/92)*100</p>
<p>par(mar=c(8.5,5,4,2))<br />
barplot(y,names.arg=x$Type,ylim = c(0,40),<br />
         cex.names=0.85)<br />

但如果我数据量是这个三倍多（也即附件type类型（或行数）是表中3倍多），而且下标也更长，那么显示就显得拥挤而小，请问如何让下标字体显示更清楚些，字体粗体如何实现？并且条形图的颜色怎么控制？比如这个barplot语句中如何实现，比如蓝色？请多指点，非常感谢！

[attachment=201587,74]

zwdbordeaux

<br />
par(xpd=TRUE)<br />
#我重新读入了一个含有更多行的数据<br />
#don<-read.csv(file.choose(),header=T)<br />
yy<-don[,2]<br />
ff<-barplot(yy,names.arg=don$Type,col=2,xaxt="n",ylim=c(0,max(don$Number)+2))<br />
 text(ff,-1,don$Type,font=2,srt=45,cex=0.4)<br />
 box()<br />

[attachment=201595,75]

yihui

参见拙作3.1节las参数以及5.4节条形图：

http://yihui.name/cn/publication/

我的建议是水平方向画图（barplot(...,horiz=TRUE)），并设置y轴标签方向为水平（par(las=2)）。可能要结合边距参数（par(mar=...)，参见3.1节mar参数）。

另外，你的标题写错了！不是箱线图boxplot，而是条形图barplot。

bmechuangye

谢谢zwdbordeaux！

回复第3楼的谢益辉：

谢谢谢老师！确实是条形图barplot，汗颜。。多谢指正！

得好好拜读您的大作。

bmechuangye

回复第2楼的 zwdbordeaux：

<br />
don<-read.csv("test.csv",header=T)<br />
yy<-don[,2]<br />
ff<-barplot(yy,names.arg=don$Type,col=2,xaxt="n",ylim=c(0,max(don$Number)+2))<br />
 text(ff,-1,don$Type,font=2,srt=45,cex=0.4)<br />
 box()<br />

按您的方法，怎么我的看不到下标呢？

zwdbordeaux

你是否掉了一行命令

<br />
par(xpd=TRUE)<br />

此外你需要根据你的y轴上的数值确定命令

text()中的y的值，以便显示。注意我给出的例子里面没有算百分比

bmechuangye

回复第6楼的 zwdbordeaux：

谢谢，我真粗心。

我试了一下，假如下标有些名称较长，有些很短，则显示不好。我现在的做法是将你代码里的一些参数设置搬到我写的代码里就可以达到我的要求了。

yihui

回复第2楼的 zwdbordeaux：这个办法针对这个特定的问题可以解决，但不具有通用性。

我觉得用par(mar=...)+barplot(..., horiz=TRUE)的办法稍微好一点；目前我能想到的还是dotplot()最适合。

zwdbordeaux

回复第8楼的谢益辉：

水平放置确实是一个不错的解决方法,当然当分类变量数目不是特别多的时候,我提到的那个方法也有用处.因为大多数人都已经习惯于看垂直条形图.

当然分类变量数目超多的时候可以考虑dotplot(),不过我在2.10.0版本下发现dotplot已经失效，而改名为dotchart().不过像dotchart这种在科研论文中不常见（以生物论文而言）的图形初次出现的时候难免要仔细解释一下。

此外，应该没有一个图形具有“通用性”吧！都需要根据情况，而做出不同的选择。[s:11]

yihui

回复第9楼的 zwdbordeaux：我说的“通用性”不是指图形的种类，而是指加标签的方法，用text() + par(xpd = TRUE)的方法属于硬编码的方式，不能根据文本长度自适应文本位置，dotchart()能自动调整边距宽度，使得所有文本标签都能在图中显示出来。另外，par(xpd = TRUE)可能会有副作用，举个例子：

par(xpd = TRUE)<br />
barplot(1:2)<br />
# 水平线超出画图区域<br />
abline(h = 1.5)

pashliu

另外一种画法,可以借助grid和gridBase包.

<br />
library(grid)<br />
library(gridBase)<br />
test=read.csv("test.csv",header=T)<br />
test.names=test$Type<br />
midpts <- barplot(test[,2],space=1,axes = FALSE,axisnames = FALSE,main="")<br />
axis(2)<br />
axis(1, at = midpts, labels = FALSE)<br />
vps <- baseViewports()<br />
pushViewport(vps$inner, vps$figure, vps$plot)<br />
grid.text(test.names, x = unit(midpts, "native"), y = unit(-1,"lines"), just = "right", rot = 60,gp=gpar(col="black", fontsize=7))<br />
popViewport(3)<br />

test.csv

[data]

Type Number

Al (A) 16

NA (A) 1

IR (A) 17

Lo (B) 23

Lt (B) 22

R1 (B) 4

V1 (C) 1

VK (C) 1

ER (C) 7

[/data]

zwdbordeaux

回复第10楼的谢益辉:多谢解释!受教了! 不知道是否能够把dotplot中坐标的那种功能移植到barplot中？

yihui

回复第12楼的 zwdbordeaux：可以用strwidth()预先计算一下标签将占用的宽度，然后根据最大宽度设置合适的边距。