Я хочу вставить вопросы опроса в таблицу. Вопросы длинные и заполняют остальную часть таблицы.
Следующий код является выдержкой из файла Markdown.
{r echo=FALSE, message=FALSE, warning=FALSE, paged.print=FALSE,as.is=T}
#Create data set
x<-c(45,2,8,10,32,33)
y<-c(2,3,3,3,3,3)
EDLP_D.1<-cbind(x,y)
colnames(EDLP_D.1)<- c("Sheet", "Please indicate your level of satisfaction with the availability of the instructor outside the classroom. (In selecting your rating, consider the instructor's availability via established office hours, appointments, and opportunities for face-to-face interaction as well and as via telephones, e-mail, fax, and other means")
#function to compute values needed for table
vec_fun4 <- function(x,y){
Vec <-c(colnames(x[,y]),round(mean(x[[y]]),2),length(which(!is.na(x[,y]==F))),length(which(x[,y]==1)),length(which(x[,y]==2)),length(which(x[,y]==3)),length(which(x[,y]==4)))
return(Vec)
}
#Switch from long format to wide format
item2.1 <- as.data.frame(t(as.matrix(vec_fun4(EDLP_D.1,1))))
#Make table
library(kableExtra)
kable(item2.1,"latex" ,booktabs=T, align="c",col.names=linebreak(c('Item','Mean','\\textit{N}' ,'Strongly\n Disagree','Disagree','Agree','Strongly\n Agree')),row.names = F,escape=F)
Я попытался установить row.names = T, но это не сработало. Я также пытался вставить \n в строку элемента опроса, но это тоже не сработало. Любые предложения, чтобы решить вопрос об элементе опроса, чтобы обернуть в ячейке? Я открыт для использования другого пакета, если он решает проблему.