是否有一个R函数来绘制轴间距不相等的图?

是否有一个R函数来绘制轴间距不相等的图?,r,ggplot2,R,Ggplot2,我想画一个轴间距不相等的图。 这是我的数据 group <- c("group1","group2","group3","group4","group5","group6") value <- c(520,550,13,15,30,20) df <- cbind.data.frame(group,value) 这个代码生成了一个等距轴的图,我不想这样。此图无法比较组3、4、5和6。如果你知道如何制作理想的情节,请告诉我。 我想我从未在ggplot2中看到过不连续轴 使用点而不

我想画一个轴间距不相等的图。 这是我的数据

group <- c("group1","group2","group3","group4","group5","group6")
value <- c(520,550,13,15,30,20)
df <- cbind.data.frame(group,value)
这个代码生成了一个等距轴的图,我不想这样。此图无法比较组3、4、5和6。如果你知道如何制作理想的情节,请告诉我。

我想我从未在ggplot2中看到过不连续轴

使用点而不是条,可以通过使用面来模拟不连续轴:

ggplot(df,aes(x=factor(group),y=value)) +
    facet_grid(value < 100 ~., scales='free_y') +
    geom_point(stat="identity") + 
    theme(strip.text = element_blank())

通过“非等间距”我假设您指的是链接轴样本中Y轴的连续性中断?是的。你说得对,谢谢你,西蒙。你的想法很好。你的问题给了我一个提示,然后我搜索了“断轴”。我可以找到下面的代码,这是接近(不准确)我想要的。图书馆(plotrix);间隙条形图(df$值,间隙=c(50500))
ggplot(df,aes(x=factor(group),y=value)) +
    facet_grid(value < 100 ~., scales='free_y') +
    geom_point(stat="identity") + 
    theme(strip.text = element_blank())
ggplot(df,aes(x=factor(group),y=value)) +
    geom_bar(stat="identity") + 
    scale_y_log10() +
    annotation_logticks(base=10, sides='lr')