用barplot() 做条形图
然后用 text( )标数值即可
举例：
x=round(runif(10)*10,1) #取10个随机数值
barplot(x) #绘图
text(1:10*1.2-.5,x,x) #加数值标识
用R作图，比用EXCEL要灵活的多。散点图，直接用plot()即可
多类别，在R中就是多变量，用pionts() 加类别
拟合曲线用 fit<- lm()
lines(fit)
添加文字用 text()
ggplot2包可以用来绘图，其中的geom_text函数可以设置标签：library(plyr)
library(ggplot2)
library(scales)
dtf <- data.frame(x = c("ETB", "PMA", "PER", "KON", "TRA",
"DDR", "BUM", "MAT", "HED", "EXP"),
y = c(.02, .11, -.01, -.03, -.03, .02, .1, -.01, -.02, 0.06))
ggplot(dtf, aes(x, y)) +
geom_bar(stat = "identity", aes(fill = x)) +
geom_text(aes(label = paste(y * 100, "%"),
vjust = ifelse(y >= 0, 0, 1))) +
scale_y_continuous("Anteil in Prozent", labels = percent_format())
