从“pivot_longer”输出中删除自动生成的前缀

如何删除表中的

（Intercept）

和

（carat）

前缀？这样，我可以缩小我的表的宽度一点，并删除名称冗余

在

pivot\u longer（）

或

pivot\u wider（）

中使用

names\u prefix=“”

，或同时使用这两种方法，类似于不会有帮助

创建表格的代码是

library(emmeans)
library(tidyverse)
library(broom)
library(kableExtra)


models_ci <- diamonds %>% group_by(cut, color) %>% 
           do(data.frame(tidy(lm(price ~ carat, data = .), conf.int=T )))

models_ci[,1:5] %>% 
  pivot_longer(cols=c(estimate, std.error), names_prefix = "") %>% 
 pivot_wider(names_from = c(term, name), 
             values_from = value) %>%
  kbl(booktabs = T,
          linesep = "",
          digits = 2,
    caption = "95% confidence intervals") %>%
  add_header_above(c("Effects" = 2 , "Intercept" = 2, "Slope" = 2)) %>% 
  kable_styling(latex_options = c("repeat_header"))

库（emmeans）
图书馆（tidyverse）
图书馆（扫帚）
图书馆（kableExtra）
模型ci%分组依据（切割、颜色）%>%
do（data.frame（tidy（lm（price~carat，data=），conf.int=T）））
型号_ci[，1:5]]>%
pivot_更长（cols=c（估计值，标准错误），名称_前缀=”）%>%
枢轴（名称从=c（术语、名称），
值\u from=值）%>%
kbl（booktabs=T，
linesep=“”，
数字=2，
caption=“95%置信区间”）%%>%
在（c（“效果”=2，“截距”=2，“斜率”=2））上方添加标题%>%
kable_样式（latex_选项=c（“重复_标题”））

---

提前谢谢你

一个带有

colnames%的解决方案
do（data.frame（tidy（lm（price~carat，data=），conf.int=T）））
型号_ci[，1:5]]>%
枢轴长度（cols=c（估计值，标准误差））%>%
枢轴（名称从=c（术语、名称），
值\u from=值）%>%
`colnames%
kbl（booktabs=T，
linesep=“”，
数字=2，
caption=“95%置信区间”）%%>%
在（c（“效果”=2，“截距”=2，“斜率”=2））上方添加标题%>%
kable_样式（latex_选项=c（“重复_标题”））

-输出

---

一个带有

colnames%的解决方案
do（data.frame（tidy（lm（price~carat，data=），conf.int=T）））
型号_ci[，1:5]]>%
枢轴长度（cols=c（估计值，标准误差））%>%
枢轴（名称从=c（术语、名称），
值\u from=值）%>%
`colnames%
kbl（booktabs=T，
linesep=“”，
数字=2，
caption=“95%置信区间”）%%>%
在（c（“效果”=2，“截距”=2，“斜率”=2））上方添加标题%>%
kable_样式（latex_选项=c（“重复_标题”））

-输出

---

您可以使用

setNames

wtih

gsub

setNames（gsub（'\\（Intercept）\'，''，colnames（.））

setNames（gsub（'\\carat_u'，''，colnames（.））

库（emmeans）
图书馆（tidyverse）
图书馆（扫帚）
图书馆（kableExtra）
模型ci%分组依据（切割、颜色）%>%
do（data.frame（tidy（lm（price~carat，data=），conf.int=T）））
型号_ci[，1:5]]>%
pivot_更长（cols=c（估计值，标准错误），名称_前缀=”）%>%
枢轴（名称从=c（术语、名称），
值\u from=值）%>%
setNames（gsub（'\\（Intercept）\'，''，colnames（.））%>%
设置名称（gsub（'\\carat_u'，''，colnames（.））%>%
kbl（booktabs=T，
linesep=“”，
数字=2，
caption=“95%置信区间”）%%>%
在（c（“效果”=2，“截距”=2，“斜率”=2））上方添加标题%>%
kable_样式（latex_选项=c（“重复_标题”））

---

您可以使用

setNames

wtih

gsub

setNames（gsub（'\\（Intercept）\'，''，colnames（.））

setNames（gsub（'\\carat_u'，''，colnames（.））

库（emmeans）
图书馆（tidyverse）
图书馆（扫帚）
图书馆（kableExtra）
模型ci%分组依据（切割、颜色）%>%
do（data.frame（tidy（lm（price~carat，data=），conf.int=T）））
型号_ci[，1:5]]>%
pivot_更长（cols=c（估计值，标准错误），名称_前缀=”）%>%
枢轴（名称从=c（术语、名称），
值\u from=值）%>%
setNames（gsub（'\\（Intercept）\'，''，colnames（.））%>%
设置名称（gsub（'\\carat_u'，''，colnames（.））%>%
kbl（booktabs=T，
linesep=“”，
数字=2，
caption=“95%置信区间”）%%>%
在（c（“效果”=2，“截距”=2，“斜率”=2））上方添加标题%>%
kable_样式（latex_选项=c（“重复_标题”））

---

谢谢。这对那些需要详细说明姓名的人很有帮助，例如大写、小写、斜体等等，谢谢。当人们需要更多的详细名称时，如大写、小写、斜体等等，这是很有帮助的，。。。

library(tidyverse)
library(broom)
library(kableExtra)


models_ci <- diamonds %>% group_by(cut, color) %>% 
  do(data.frame(tidy(lm(price ~ carat, data = .), conf.int=T )))

models_ci[,1:5] %>% 
  pivot_longer(cols=c(estimate, std.error)) %>% 
  pivot_wider(names_from = c(term, name), 
              values_from = value) %>%
  `colnames<-`(c("cut", "color", "estimate", "std.error", "estimate", "std.error")) %>%
  kbl(booktabs = T,
      linesep = "",
      digits = 2,
      caption = "95% confidence intervals") %>%
  add_header_above(c("Effects" = 2 , "Intercept" = 2, "Slope" = 2)) %>% 
  kable_styling(latex_options = c("repeat_header"))

library(emmeans)
library(tidyverse)
library(broom)
library(kableExtra)

models_ci <- diamonds %>% group_by(cut, color) %>% 
  do(data.frame(tidy(lm(price ~ carat, data = .), conf.int=T )))

models_ci[,1:5] %>% 
  pivot_longer(cols=c(estimate, std.error), names_prefix = "") %>% 
  pivot_wider(names_from = c(term, name), 
              values_from = value) %>%
  setNames(gsub('\\(Intercept)_', "", colnames(.))) %>% 
  setNames(gsub('\\carat_', "", colnames(.))) %>% 
  kbl(booktabs = T,
      linesep = "",
      digits = 2,
      caption = "95% confidence intervals") %>%
  add_header_above(c("Effects" = 2 , "Intercept" = 2, "Slope" = 2)) %>% 
  kable_styling(latex_options = c("repeat_header"))