如何用ggplot2绘制百分比坐标轴

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

x=abs(rnorm(10))
pp=seq(0.1,1,by=0.1)
sx=array(0,10,1)
for(i in 1:10)
{
  sx=sum(x[1:i])
}
DataCumPer=data.frame(CUM=sx,PP=pp)#一定要转换成数据框
p=ggplot(DataCumPer,aes(CUM,PP))
p=p+geom_line(linetype="dotted",size=I(0.8))#设置线型和粗细
p=p+xlab("累积和")#横轴标签
p=p+geom_point(size=I(3),shape=I(18))#设置形状和大小
p=p+ylab("百分位点")#纵轴标签
p=p+opts(axis.title.x= theme_text(size = 15,color="red"))#设置字体和颜色
p=p+opts(axis.title.y= theme_text(size = 15))
p=p+scale_y_continuous(formatter = "percent",breaks =pp)#设置格式为百分比，10%为一档
p=p+opts(title="帕累托图",plot.title = theme_text(size = 20,face="bold",vjust=1.5))#设置图的标题
p#显示结果

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：ggplot2 gplot plot 如何用 GPL 百分比 坐标轴 如何

程序有点小小问题，以下才能获得正确结果

library(ggplot2)
x=abs(rnorm(10))
pp=seq(0.1,1,by=0.1);pp
sx=array(0,10,1);sx
for(i in 1:10)
{
  sx[i]=sum(x[1:i])
}
sx
DataCumPer=data.frame(CUM=sx,PP=pp)#一定要转换成数据框
p=ggplot(DataCumPer,aes(CUM,PP))
p=p+geom_line(linetype="dotted",size=I(0.8))#设置线型和粗细
p=p+xlab("累积和")#横轴标签
p=p+geom_point(size=I(3),shape=I(18))#设置形状和大小
p=p+ylab("百分位点")#纵轴标签
p=p+opts(axis.title.x= theme_text(size = 15,colour="red"))#设置字体和颜色
p=p+opts(axis.title.y= theme_text(size = 15,colour="blue"))#设置字体和颜色
p=p+scale_y_continuous(formatter = "percent",breaks =pp)#设置格式为百分比，10%为一档
p=p+opts(title="帕累托图",plot.title = theme_text(size = 20,face="bold",vjust=1.5))#设置图的标题
p#显示结果

吉林小王子 发表于 2012-1-14 08:49
程序有点小小问题，以下才能获得正确结果

library(ggplot2)

library(ggplot2) 忘记加载包了！在Rstudio里面编辑  我已经预加载了，所以就忘记添加了

ethantung 发表于 2012-1-14 10:05
library(ggplot2) 忘记加载包了！在Rstudio里面编辑  我已经预加载了，所以就忘记添加了

for循环里面的sx要加下标，设置颜色，参数为colour不是color，

吉林小王子 发表于 2012-1-14 10:32
for循环里面的sx要加下标，设置颜色，参数为colour不是color，

哦 是的。写错了。ggplot使用的是英式英语

吉林小王子 发表于 2012-1-14 08:49
程序有点小小问题，以下才能获得正确结果

library(ggplot2)

0.90版ggplot的兼容性问题

require(ggplot2)
require(scales) # 0.90版必须要加载的
x=abs(rnorm(10))
pp=seq(0.1,1,by=0.1);pp
sx=array(0,10,1);sx
for(i in 1:10)
{
  sx=sum(x[1:i])
}
sx
DataCumPer=data.frame(CUM=sx,PP=pp)#一定要转换成数据框
p=ggplot(DataCumPer,aes(CUM,PP))
p=p+geom_line(linetype="dotted",size=I(0.8))#设置线型和粗细
p=p+xlab("累积和")#横轴标签
p=p+geom_point(size=I(3),shape=I(18))#设置形状和大小
p=p+ylab("百分位点")#纵轴标签
p=p+opts(axis.title.x= theme_text(size = 15,colour="red"))#设置字体和颜色
p=p+opts(axis.title.y= theme_text(size = 15,colour="blue"))#设置字体和颜色
p=p+scale_y_continuous(labels = percent,breaks=pp)#设置格式为百分比，10%为一档(0.90版)
p=p+opts(title="帕累托图",plot.title = theme_text(size = 20,face="bold",vjust=1.5))#设置图的标题
p#显示结果