質問
私はどこか他の使用のためにxtableに存在することを、いくつかのデータ(ddply関数の出力)を持っています。
calqc_table<-structure(list(RUNID = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L), ANALYTEINDEX = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L), ID = structure(1:11, .Label = c("Cal A", "Cal B", "Cal C",
"Cal D", "Cal E", "Cal F", "Cal G", "Cal H", "Cal High", "Cal Low",
"Cal Mid"), class = "factor"), mean_conc = c(200.619459644855,
158.264703128903, 102.469121407733, 50.3551544728544, 9.88296440865076,
4.41727762501703, 2.53494715706024, 1.00602831741361, 199.065054555735,
2.48063347296935, 50.1499780776199), sd_conc = c(2.3275711264554,
NA, NA, NA, NA, NA, NA, 0.101636943231162, 0, 0, 0), nrow = c(3,
1, 1, 1, 1, 1, 1, 3, 2, 2, 2)), .Names = c("RUNID", "ANALYTEINDEX",
"ID", "mean_conc", "sd_conc", "nrow"), row.names = c(NA, -11L
), class = "data.frame")
calqc_xtable<-xtable(calqc_table)
print(calqc_xtable,type="html")
私はhtml形式でテーブルを与える。しかし、私は値が同じでどこ縦に一緒にRUNIDとANALYTEINDEX列の内容をマージします。それを経由してxtable行うにはどのように誰もが知っている(またはいくつかの他の方法は?)
解決
Iが「クリーンアップ」NAによって前の値に等しい値を置き換え、元のデータ・フレームになります。 xtable
は空のスペースとしてこれらの欠損値をレンダリングします。あなたが水平境界線を持っていない場合、これは良いになります。
cleanf <- function(x){
oldx <- c(FALSE, x[-1]==x[-length(x)]) # is the value equal to the previous?
res <- x
res[oldx] <- NA
res}
今、私たちは、あなたがクリーンアップしたいという列にこの機能を適用することができます
clean.cols <- c( "RUNID", "ANALYTEINDEX")
calqc_table[clean.cols] <- lapply(calqc_table[clean.cols], cleanf)
所属していません StackOverflow