更改ggally :: ggcoef中术语的名称

Question

给出以下示例

iris_fat <- iris %>% mutate(is_fat = factor(ifelse(Sepal.Width * Petal.Width > 6 ,"fat", "not_fat")))
reg <- lm(Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width + is_fat, data = iris_fat)
  GGally::ggcoef(reg)

如何将术语is_fatnot_fat的名称更改为其他名称。

Answer 1

我对先前的评论不好，没有仔细阅读。

ggcoef创建一个列表，就像其他ggplot函数一样。第一个元素data是term映射到y轴的数据帧。如果您有点好奇，请尝试str(test_plot$data)或在RStudio中检查它

test_plot <- ggcoef(reg)
test_plot$data$term <- c("(Intercept)", "is_fat", "Petal.Length", "Petal.Width", "Sepal.Width")