2017-12-22 30 views
0

한 행에 대한 관찰을 여러 행으로 분할하고 여전히 행 하나만 남겨 두어야합니다. 예를 들어DT에서 다중 라인 관찰

source<-data.frame("MEASURE"=c("First","First","Second"),"DATE"=c("2017-11-02","2017-12-12","2017-05-15")) 
source<-source[source$MEASURE=="First",] 
source<-droplevels(source) 

은 그 때 나는 수준()

y<-paste(levels(as.factor(cf$DATE)),collapse=",") 

와 날짜를 얻을 그리고 다른 DF 실현 :

s1<-data.frame(matrix(nrow=1, ncol=2)) 
s1[1,1]<-"Date" 
s1[1,2] y 

제공 :

X1        X2 
1 Date   2017-11-02,2017-12-12 
을 16,

는하지만, 2 개 이상이 될 수 분할 할 수 있도록이

X1        X2 
1 Date      2017-11-02 
          2017-12-12 

단어 같은 것을해야합니다. df는 요약 용이며 ​​DT :: renderdataTable()과 함께 반짝이는 데 사용됩니다.

누구든지 나를 도와 줄 수 있습니까?

+0

당신은'library (tidyr); separate_rows (dat, X2, sep = ",") ' – akrun

+0

@akrun separate_rows는 X2의 값을 새 행으로 구분합니다. 난 그냥 "줄 분리"같은 행 insede 필요합니다. 그것은 정당한 형식 문제입니다. –

답변

1

escape 인수를 사용하는 것이 해결책 일 수 있습니다. 이 인수에 대해서는 https://rstudio.github.io/DT/ 섹션 2.9에서 읽을 수 있습니다. 그리고 쉼표를 쉼표로 바꾸십시오 :

library(dplyr) 
library(stringr) 
s1$X2 %>% str_replace_all(pattern = "[,]", replacement = "<br/>") 
datatable(s1, escape = FALSE) 
+0

완벽하게 작동합니다 !!!! 감사합니다! 한 가지 : str_replace_all은 package stringr에서 가져온 것입니다. –

+0

@PaoloPolCristoforetti 유용하다고 생각되면 답변 수락을 고려하십시오. – user5029763