R 单独或通过美学方式轻推/重新定位几何图形标签？

我正在尝试使用ggplot（）绘制对一系列Likert类型问题的回答。我已经使用dplyr计算了每个问题的每个回答（“强烈同意”、“同意”等）的比例，现在我想在堆叠条形图中绘制比例（每个问题一个条形图）。下面的代码给出了我到目前为止的一些想法

库（ggplot2）
dat1。“错误：您必须指定位置或微移x/微移y。”

该错误是不言自明的，您不能将
微移_x
与
位置_堆栈
结合使用，因为两者都是相同
位置
参数的选项：

发件人：

如果（！缺失（微动x）| |！缺失（微动y））{
如果（！缺失（位置））{
停止（“您必须指定'position'或'nudge_x`/'nudge_y`.”，call.=FALSE）
}
位置1。“错误：必须指定位置或微移x/微移y。”

该错误是不言自明的，您不能将
微移_x
与
位置_堆栈
结合使用，因为两者都是相同
位置
参数的选项：

发件人：

如果（！缺失（微动x）| |！缺失（微动y））{
如果（！缺失（位置））{
停止（“您必须指定'position'或'nudge_x`/'nudge_y`.”，call.=FALSE）
}
位置
  if (!missing(nudge_x) || !missing(nudge_y)) {
    if (!missing(position)) {
      stop("You must specify either `position` or `nudge_x`/`nudge_y`.", call. = FALSE)
    }

    position <- position_nudge(nudge_x, nudge_y)
  }

dat <- data.frame(Question = "Q1", 
                  Response = LETTERS[1:5], 
                  freq = c(.01, .03, .11, .35, .5),
                  offset = c(.03, 0, 0, 0, 0))

ggplot(dat, aes(x = Question, y = freq, fill = Response, label = Response)) + 
  geom_col() + 
  geom_label(aes(y = freq + offset), position = position_stack(vjust = 0.5))