R ggplot2:如何手动调整缩放区域
我做了两个泡泡图,叫做beta和km。我想将两个图并排进行比较,但比例区域似乎不同,这使得很难根据气泡的大小直观地比较两个图 如果您注意到下图中的图例,则比例不同。我认为这是因为betaGSD5数据集上的最高BiasAM值为64,kmGSD5数据=100 如何手动更改比例\区域,使betaPlot比例与kmPlot比例匹配 也可以手动设置图例中断吗?不是自动生成,我可以像这样指定图例吗? 0-10, 10-30, 30-50, 50-70, 70-100 一百 betaGSD5数据: kmGSD5数据: 这是测试版代码R ggplot2:如何手动调整缩放区域,r,ggplot2,R,Ggplot2,我做了两个泡泡图,叫做beta和km。我想将两个图并排进行比较,但比例区域似乎不同,这使得很难根据气泡的大小直观地比较两个图 如果您注意到下图中的图例,则比例不同。我认为这是因为betaGSD5数据集上的最高BiasAM值为64,kmGSD5数据=100 如何手动更改比例\区域,使betaPlot比例与kmPlot比例匹配 也可以手动设置图例中断吗?不是自动生成,我可以像这样指定图例吗? 0-10, 10-30, 30-50, 50-70, 70-100 一百 betaGSD5数据: kmGSD
betaPlot <- ggplot(betaGSD5, aes(N,PctCens,size=BiasAM,label=NULL)) +
geom_point(colour="red", shape=16) +scale_area(to=c(1,10)) +
xlab("Sample size") + ylab("Percent censored") +
xlim(0,100)+ ylim(0,100) +
theme_bw()+
opts(
#legend.position='none',
panel.grid.minor = theme_blank(),
panel.background = theme_blank(),
axis.ticks = theme_blank(),
axis.title.x=theme_text(face='bold',vjust=0.2, size =12), #size=15 #hjust:move horizonal, vjust-move verticall
axis.title.y=theme_text(face='bold',angle=90, vjust=0.2,size =12))
print(betaPlot)
betaPlot如果你想让它们并排出现,那就很容易了。只需结合使用数据集和facet_wrap()
看一看?缩放面积和?连续缩放
@mnel:我看了。不是很有帮助。@业余爱好者,什么是没有帮助的?你不明白什么?对不起。我的意思是我没有发现?scale_区域说明很有用。这是一个很好的,正是我需要的。但我遇到了一些ggplot折旧错误的问题(尤其是传说中断)。新ggplot是否有此代码的更新版本?
kmPlot <- ggplot(kmGSD5, aes(N,PctCens,size=NewBiasAMpct,label=NULL)) +
geom_point(colour="red", shape=16) +scale_area(to=c(1,10)) +
xlab("Sample size") + ylab("Percent censored") +
xlim(0,100)+ ylim(0,100) +
theme_bw()+
opts(
#legend.position='none',
panel.grid.minor = theme_blank(),
panel.background = theme_blank(),
axis.ticks = theme_blank(),
axis.title.x=theme_text(face='bold',vjust=0.2, size =12), #size=15 #hjust:move horizonal, vjust-move verticall
axis.title.y=theme_text(face='bold',angle=90, vjust=0.2,size =12))
print(kmPlot)
ggplot(dataset, aes(x = N, y = PctCens, size = BiasAM, label = NULL)) +
geom_point(colour="red", shape = 16) +
scale_size_area(limits = c(1, 10), breaks = c(0, 10, 30, 50, 70, 100)) +
scale_x_continuous("Sample size", limits = c(0, 100)) +
scale_y_continuous("Percent censored", limits = c(0, 100)) +
facet_wrap(~ Method) +
theme_bw() +
theme(
panel.grid.minor = element_blank(),
panel.background = element_blank(),
axis.ticks = element_blank(),
axis.title.x = element_text(face = 'bold', vjust = 0.2, size = 12),
axis.title.y = element_text(face = 'bold', angle = 90, vjust = 0.2, size = 12)
)