我使用以下代码制作了一个数字，但是，我最近注意到我的一些数据点不包含错误条，所以我在编写它几个月后重新访问此代码。在这个时候ggplot2已经有了更新，现在我的代码中出现错误，我不知道如何修复。这些详述如下。
我的代码是：
newArrayofObjects = [ {key1: 1, key2: a}, {key1: 2, key2: b}, {key1: 3, key2: c}, {key1: 4, key2: d}, {key1: 5, key2: e}]
当我运行时，所有运行都没问题，直到我到达代码的最后一行p1 <- ggplot(dat3A, aes(x = d15N, y = Depth))
p4 <- p1 +
geom_point(size = 1) +
geom_path() +
scale_y_continuous(expand = c(0, 0), limits = c(15,0), trans = "reverse") +
scale_x_continuous(expand = c(0, 0), limits = c(0,20)) +
labs(x=expression(paste(delta^'15', N[NO3],('\u2030'))), y='Depth (cm)') +
theme_bw() +
theme(axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank()) +
geom_errorbarh(aes(xmax=d15N+d15NError, xmin=d15N-d15NError))+
ggtitle("d") +
theme(plot.title = element_text(hjust = 0, size=8))+
theme(axis.text = element_text(size=6), axis.title=element_text(size=8))
p13 <- ggdraw(switch_axis_position(p4, axis = 'x'))
然后我收到以下错误：
gt $ grobs [[ixl]]中的错误：尝试选择少于一个元素In 另外：警告消息：1：
p13 <- ggdraw(switch_axis_position(p4, axis = 'x'))已弃用。请 使用panel.margin属性代替2：删除包含的1行 缺失值（geom_errorbarh）。
我不是一位经验丰富的编码员，所以我不确定如何解决这些错误。我不在我的代码中使用panel.margin，所以我不知道如何将其更改为panel.spacing。如果有人可以提供任何帮助以及panel.spacing错误，我会非常感激！
答案 0 :(得分：0)
来自:userId:小插曲：
从ggplot2 2.2.0开始，该软件包现在原生支持辅助轴 和曲线两侧的轴。因此，牛皮节功能 switch_axis_position（）已被弃用，因为它始终是一个 丑陋的黑客，难以维护。
确实cowplot现在具有ggplot2功能。已被coord_flip
switch_axis_position(p4, axis = 'x')
另外..你可能想稍微整理那个图形结构。
+ scale_x_continuous(position = 'right')