R 使用点图调整离散轴比例

发布于01月16日

我有一个数据集，我正试图用点图来显示，但这很有挑战性，因为我的一些网站比其他网站有更多的数据.有没有办法调整x轴上的比例，这样在下面的例子中，A和B比C有更多的空间？

data.frame(site = c(rep("A", 6000), rep("B", 2000), rep("C", 100)),
           mass = rnorm(8100, mean = 60, sd = 5)) %>% 
  ggplot(aes(x = site, y = mass)) +
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.11, binwidth = 1, col = "grey50")

推荐答案

如果我们设计出一种方法，将离散比例转换为连续比例，并将分组保持在geom_dotplot以内，我们就可以在site组之间获得不同的宽度.

library(dplyr) # just a convenient way, many base-R options exist for this step
sites <- count(dat, site) %>%
  mutate(site_x = n[1] + c(0, cumsum(2 * n)[-n()]))
sites
#   site    n site_x
# 1    A 6000   6000
# 2    B 2000  18000
# 3    C  100  22000

left_join(dat, sites, by="site") %>%
  ggplot(aes(site_x, mass)) +
  geom_dotplot(aes(group=site), binaxis = "y", stackdir = "center", dotsize = 0.11, binwidth = 0.7, col = "grey50") +
  scale_x_continuous(
    limits=c(0, max(sites$site_x)),
    breaks=sites$site_x, labels=sites$site
  ) +
  theme(panel.grid.minor.x = element_blank())