时间戳

首页 > 解决方案 > 如何在表格中添加通用序列号和标题

r - 如何在表格中添加通用序列号和标题

问题描述

我想在表中添加序列号和标题，然后将其转换为函数，因此默认情况下序列号应该是，标题应该作为输入参数。

library(tibble)
df <- mtcars %>%
  rownames_to_column(var="carnames") 
df <- df[,c(1:2)] %>% as.data.frame()
names(df[1]) <-  "Names"

标签： r

解决方案

如果您真的希望原始列名成为新行，则必须首先将mpg列转换为character变量：

library(dplyr)
df = mtcars %>% 
        rownames_to_column("carnames") %>% 
        select(1:2) %>% 
        mutate(mpg = as.character(mpg)) %>% 
        add_row(carnames = "carnames", mpg = "mpg", .before = 1) %>% 
        rename("Cartypes" = carnames, "Rank" = mpg)

输出：

> df %>% as_tibble()
# A tibble: 33 x 2
   Cartypes          Rank 
   <chr>             <chr>
 1 carnames          mpg  
 2 Mazda RX4         21   
 3 Mazda RX4 Wag     21   
 4 Datsun 710        22.8 
 5 Hornet 4 Drive    21.4 
 6 Hornet Sportabout 18.7 
 7 Valiant           18.1 
 8 Duster 360        14.3 
 9 Merc 240D         24.4 
10 Merc 230          22.8 
# ... with 23 more rows

推荐阅读