在ggplot的一个方面内按组分隔geom_linerange

Question

假设我有以下数据：

test = read.table(text = 'condition1 condition2 estimate std_error name
a x .466 .09 name_1
a y .343 .131 name_1
b x .466 .09 name_1
b y .343 .131 name_1
a x .466 .09 name_2
a y .343 .131 name_2
b x .466 .09 name_2
b y .343 .131 name_2', header = T, stringsAsFactors = T)


ggplot(data = test, aes(x = estimate, y = condition1, fill = condition2, group = condition2)) +
    geom_point(color = 'black') +
    geom_linerange(aes(xmin = estimate - std_error,
                       xmax = estimate + std_error), color = 'black') +
    ylab(NULL) +
    facet_grid(name ~ .,
               scales = "free_y",
               space = "free_y",
               switch = 'y')

我试图分离出x和y线作为内单独的行b与a条件within一个给定的小刻面（ name_1和name_2 ）。 但是我的代码原样将这两行作为相同的 y 值，所以它们是重叠的。 分隔线的最佳方法是什么？

Answer 1

根据口味调整width = X

...
 geom_point(color = 'black', position = position_dodge(width = 1)) +
  geom_linerange(aes(xmin = estimate - std_error,
                     xmax = estimate + std_error), color = 'black',
                     position = position_dodge(width = 1)) +
...

或者在这里进行一些更多的美学调整：

ggplot(data = test, aes(x = estimate, y = condition1, fill = condition2, group = condition2)) +
  geom_linerange(aes(xmin = estimate - std_error,
                     xmax = estimate + std_error), color = 'black',
                 position = position_dodge(width = 0.5)) +
  geom_point(color = 'black', size = 2, shape = 21, position = position_dodge(width = 0.5)) +
  ylab(NULL) +
  facet_grid(name ~ .,
             scales = "free_y",
             space = "free_y",
             switch = 'y') +
  theme(panel.grid.major.y = element_blank())