1

次のデータフレームがあります。

> dput(py6s_pwc_16)
structure(list(source = c("AERONET", "BIGF", "MODIS"), ndvi_real = c(0.618, 
0.618, 0.618), ndvi_95 = c("0.616", "0.616", "0.615"), ndvi_05 = c("0.62", 
"0.62", "0.621"), perc_95 = c("-0.288", "-0.315", "-0.431"), 
    perc_05 = c("0.374", "0.289", "0.471")), .Names = c("source", 
"ndvi_real", "ndvi_95", "ndvi_05", "perc_95", "perc_05"), row.names = c(NA, 
-3L), class = "data.frame")

Rコマンドプロンプトで印刷すると、次のようになります。

> py6s_pwc_16
   source ndvi_real ndvi_95 ndvi_05 perc_95 perc_05
1 AERONET     0.618   0.616    0.62  -0.288   0.374
2    BIGF     0.618   0.616    0.62  -0.315   0.289
3   MODIS     0.618   0.615   0.621  -0.431   0.471

を使用して、このテーブルの LaTeX 表現を生成したいと考えていますxtable。私は次のコードでこれをやろうとしています:

x <- xtable(py6s_pwc_16)
digits(x) <- 3
print(x, include.rownames=FALSE, table.placement=NULL, latex.environments=NULL, size="\\centering", booktabs=TRUE, sanitize.colnames.function=add_bold)

ただし、次のような LaTeX コードが生成されます (テーブル内のスニペットのみ)。

AERONET & 0.618 & 0.616 & 0.62 & -0.288 & 0.374

ご覧のとおり、4 列目には 3 桁がありません。ちょうど 0.62 です。0.620 にしたいと思います。xtableでこれを行う方法はありますか?

次の行を追加してみました：

display(x) <- rep("fg", ncol(x)+1)

Rに数字ではなく有効数字を使用させようとしますが、それは出力を変更しません。

何か案は？

4

1 に答える 1

6

これは、データがcharacterあるべき場所に含まれているために発生しnumericます。

str(py6s_pwc_16)
'data.frame':   3 obs. of  6 variables:
 $ source   : chr  "AERONET" "BIGF" "MODIS"
 $ ndvi_real: num  0.618 0.618 0.618
 $ ndvi_95  : chr  "0.616" "0.616" "0.615"
 $ ndvi_05  : chr  "0.62" "0.62" "0.621"
 $ perc_95  : chr  "-0.288" "-0.315" "-0.431"
 $ perc_05  : chr  "0.374" "0.289" "0.471"

これを修正するには、chr列を数値に変換します。

py6s_pwc_16[, 2:6] <- lapply(py6s_pwc_16[2:6], as.numeric)

次に実行しますxtable：

library(xtable)
xtable(py6s_pwc_16, digits=3)

% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Wed Jul 18 12:00:33 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rlrrrrr}
  \hline
 & source & ndvi\_real & ndvi\_95 & ndvi\_05 & perc\_95 & perc\_05 \\ 
  \hline
1 & AERONET & 0.618 & 0.616 & 0.620 & -0.288 & 0.374 \\ 
  2 & BIGF & 0.618 & 0.616 & 0.620 & -0.315 & 0.289 \\ 
  3 & MODIS & 0.618 & 0.615 & 0.621 & -0.431 & 0.471 \\ 
   \hline
\end{tabular}
\end{center}
\end{table}
于 2012-07-18T11:00:47.063 に答える