Проблема с set_header_labels в гибкой Rstudio - PullRequest
Новая
       27

Проблема с set_header_labels в гибкой Rstudio

0 голосов
/ 23 января 2020

Я новичок в гибкой библиотеке, и мне было интересно, не проще ли установить метки заголовков. В таблице iris у нас есть: 

ft <- set_header_labels(ft, Sepal.Length = "Sepal", 
                        Sepal.Width = "Sepal", Petal.Length = "Petal",
                        Petal.Width = "Petal" )
# merge them 
ft <- merge_at(ft, i = 1, j = 1:2, part = "header")
ft <- merge_at(ft, i = 1, j = 3:4, part = "header")
ft
#agrego la otra línea con el nombre
ft <- add_header_row(ft, 
                     values = c("", "length", "width", "length", "width"), 
                     top = FALSE )
ft <- theme_box(ft)
ft

Но, если я пытаюсь сделать что-то подобное, чтобы избежать повторения, я получаю ошибку: 

ft <- flextable( head( iris ) ) 
ft <- set_header_labels(ft, Sepal.Length = "Sepal", 
                        Sepal.Width = "Sepal", Petal.Length = "Petal",
                        Petal.Width = "Petal" )

ft <- set_header_labels(ft, c(Sepal.Length, Sepal.Width) = c(rep("Sepal",2)),
                        c(Petal.Length,Petal.Width)  = c(rep("Petal",2)))

#error!

Error: unexpected ')' in "                        c(Petal.Length,Petal.Width)  = c(rep("Petal",2)))"

Знаете ли вы, как я могу почини это? Спасибо!

...