使用coord_curvedpolar时单行data.frame引发geom_textpath报错求助

问题重现 #

当使用geomtextpath包的geom_textpath()结合极坐标coord_curvedpolar()绘图时，若输入的data.frame仅包含一行数据，会触发维度不匹配的错误，而多行数据则可正常运行。报错信息如下：

Error in `geom_textpath()`:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `$<-.data.frame`:
! le tableau de remplacement a 1 lignes, le tableau remplacé en a 0

原因分析 #

该问题是geom_textpath在极坐标下处理单行数据时的边界逻辑bug：当仅存在一行数据时，内部路径生成的相关计算出现维度不匹配，导致数据替换时的行数不一致错误。临时添加第二行数据的方法虽能规避，但需调整偏移量才能生效，属于治标不治本的方案。

根本解决方案 #

方案1：自动预处理单行数据 #

在绘图函数中加入单行数据的判断与处理，复制一行数据并微调路径参数，同时让复制的行不显示，既满足geom_textpath的内部计算要求，又不影响最终绘图效果：

library(ggplot2)
library(geomtextpath)

seasons_1 <- data.frame(name = c("summer", "winter"),
                        start = as.Date(c("2019-12-01", "2019-06-01")),
                        end = as.Date(c("2019-12-31", "2019-08-31")))

seasons_2 <- data.frame(name = "summer",
                        start = as.Date("2019-12-01"),
                        end = as.Date("2019-12-31"))

helper <- function(x) {
  # 处理单行数据的边界情况
  if(nrow(x) == 1) {
    x <- rbind(x, x)
    # 微调第二行的start日期，确保路径长度不为零
    x$start[2] <- x$start[2] + 3
    # 让第二行文本为空
    x$name[2] <- ""
  }
  
  ggplot(x) +
    geom_textpath(
      aes(
        x = end - (end - start)/2,
        label = name),
      y = 1,
      # 为空文本设置透明颜色，彻底隐藏
      color = ifelse(x$name == "", NA, "black")
    ) +
    coord_curvedpolar()
}

print(helper(seasons_1))
print(helper(seasons_2))

方案2：升级geomtextpath包 #

该问题大概率是包的旧版本bug，尝试升级到最新版本的geomtextpath，可能已经修复了单行数据在极坐标下的处理逻辑：

install.packages("geomtextpath")

升级后直接运行原代码即可验证是否解决问题。

额外说明 #

若升级包后问题仍存在，可向geomtextpath的GitHub仓库提交issue，详细描述边界情况的报错信息，帮助开发者修复该bug。

内容的提问来源于stack exchange，提问作者thekangaroofactory