スパークライングラフをテーブルに追加

Question

私はすべてのデータをSPSS + ExcelではなくRmarkdownに移動しようとしていますが、グラフを追加してテーブルを作成する方法を理解することはできません。 Excelで

これは、スパークラインで行うことができ、単純にグラフを作成し、非常に正確にそれを置く、私はそれがそうであるように、機能または。

上記の表は、Tablesパッケージ（およびPander）の表関数で作成されています。 Excelに貼り付けてグラフを作成します（グラフのヘッダー）。

library(tables) 
library(pander) 
pander(#convert table to rmarkdown table 
    tabular( 
    (Species + 1) ~ (n=1) + Format(digits=2) * 
     (Sepal.Length + Sepal.Width) * (mean + sd), 
    data = iris), 
    caption = "Table 1. Iris") #Heading for table 

誰もこのようなものを作成しましたか？ gridExtraパッケージの回避策かもしれませんが、パッケージがテーブルとグラフを一致させることができると懐疑的です。

---

編集 - これまでの解決策。
HTMLが完成しました。 pdfと半分の方法。ドキュメントの場合、私はそれが可能であるとは思わない（コピーをExcelに貼り付ける）。

HTMLテーブル
まず、私はHTML、PDFまたはドキュメントをレンダリングしていた場合にRが知っているので。 out_typeは、 "html"、 "pdf"、 "docx"の値をとります。 if文でこのオブジェクトを使用できます。

out_type <- knitr::opts_knit$get("rmarkdown.pandoc.to") 

は今の棒：2つの列を有することも可能

if(out_type == "html"){ #if output is html then: 
     my_table$Mean_Sepal_Length <- paste0(#I have a table saved as a dataframe. I add a column to it called Mean_Sepal_Length 
"<span style=' width: 100%; display: flex;'><span style='display: inline-block; border-radius: 3px; padding-right: 0; background-color: #00457C; width:", #create the bar 
     MEAN_SEPAL_L_OBJECT, #set the with of the bar. I have an object with these proportions 
"%; margin-right: 5px;'>&nbsp;</span><span>", MEAN_SEPAL_L_VARIABLE, "%</span></span>") #finally add the value behind the bar. 
    } 

です。再びここで

私はプロポーションを持つテーブルを持って、私は男性と女性の比率を持つ2つのオブジェクトを持っています。

my_table$male_female <- paste0(
"<span style=' width: 100%; display: flex;'><span>", MALE_BAR, #the proportion of males 
"%</span><span style='display: inline-block;border-top-left-radius: 3px; border-bottom-left-radius:3px; padding: 0; background-color: #00457C; width:", MALE_BAR, #width of the bar for males 
"%; margin-left: 5px;'></span><span style='display: inline-block; border-top-right-radius: 3px; border-bottom-right-radius:3px; padding:0; background-color: #AC1A2F; width:", 
FEMALE_BAR, #width of bar for females 
"%;margin-right: 5px;'></span><span>", FEMALE_BAR, #proportion of females 
"%</span></span>") 

希望すればもちろんバーの中に数字を入れることもできますが、バーが小さいと問題になります。

PDF
私はpdfと遠く離れていません。ここに私の解決策は、これまでのところです：

\begin{tabular}{>{$\rhd$ }lrl} 
Loop at line 151 in divergence & \mybar{3.420}\\ 
Loop at line 1071 in radiation & \mybar{3.270}\\ 
scalar face value    & \mybar{3.090}\\ 
Loop at line 102 in get   & \mybar{1.700}\\ 
get sensible enthalpy   & \mybar{1.250}\\ 
\end{tabular} 

それはのように良い見ていません。私はラテックスにとってとても新しいです。私はまだバーの後ろに数字を配置する方法を見つける必要があります。そして、これを私の関数のif文に入れる方法。 HTMLなら：if pdf then ...

私はこれが誰かを助けてくれることを願っています。 しかし、このスレッドに記載されているパッケージを検討してください。彼らは優れている、私のソリューションは非常にそれらに基づいています。私はちょうど私がパッケージで探していたものを正確に得ることができなかったので、これを手動で行いました。

Answer 1

あなたが必要と思うのはformattable packageです。書式設定可能なsparklinesを混合するexampleもありますが、私はあなたのニーズに適応できませんでした。ただ、前の回答にスパークラインの例を追加

--- 
title: http://stackoverflow.com/q/32841221/680068 
--- 

```{r cars} 

library(dplyr) 
library(formattable) 

res <- 
    iris %>% 
    group_by(Species) %>% 
    summarise(N=n(), 
      SL_Mean=round(mean(Sepal.Length),3), 
      SL_SD=round(sd(Sepal.Length),3), 
      SW_Mean=round(mean(Sepal.Width),3), 
      SW_SD=round(sd(Sepal.Width),3)) 

#using formattable 
formattable(res, 
      list(
       SL_Mean=color_bar("pink", 0.5))) 


``` 

Answer 2

。それが役に立てば幸い。

--- 
title: http://stackoverflow.com/q/32841221/680068 
--- 

```{r results="asis"} 

library(dplyr) 
library(formattable) 
library(sparkline) 


res <- 
    iris %>% 
    group_by(Species) %>% 
    summarise(N=n(), 
      SL_Mean=round(mean(Sepal.Length),3), 
      SL_SD=round(sd(Sepal.Length),3), 
      SW_Mean=round(mean(Sepal.Width),3), 
      SW_SD=round(sd(Sepal.Width),3)) %>% 
    mutate(sparkline = as.character(Species)) 

#using formattable 
formattable(
    res, 
    list(
    SL_Mean=color_bar("pink", proportion), 
    "sparkline"=function(z){ 
     sapply(
     z, 
     function(zz){ 
      knitr::knit(
      text = sprintf(
       '`r sparkline(c(%s))`', 
       paste0(
       iris[which(iris$Species == zz),"Sepal.Length"], 
       collapse="," 
      ) 
      ), 
      quiet = TRUE 
     ) 
     } 
    ) 
    } 
) 
) 


``` 

また、非の例では、いくつかの人々を幸せにするかもしれないと思った。

library(dplyr) 
library(formattable) 
library(sparkline) 


res <- 
    iris %>% 
    group_by(Species) %>% 
    summarise(N=n(), 
      SL_Mean=round(mean(Sepal.Length),3), 
      SL_SD=round(sd(Sepal.Length),3), 
      SW_Mean=round(mean(Sepal.Width),3), 
      SW_SD=round(sd(Sepal.Width),3)) %>% 
    mutate("sparkline" = as.character(Species)) 

#using formattable 
ft <- formattable(
    res, 
    list(
    SL_Mean=color_bar("pink", proportion), 
    "sparkline"=function(z){ 
     sapply(
     z, 
     function(zz){ 
      sprintf(
      '<span class="sparkline-bar">%s</span>', 
      paste0(
       iris[which(iris$Species == zz),"Sepal.Length"], 
       collapse="," 
      ) 
     ) 
     } 
    ) 
    } 
) 
) 

library(htmlwidgets) 
browsable(
    attachDependencies(
    tagList(
     onRender(
     as.htmlwidget(ft), 
     "function(el,x){$('.sparkline-bar').sparkline('html',{type:'bar'});}" 
    ) 

    ), 
    htmlwidgets:::widget_dependencies("sparkline","sparkline") 
) 
) 

Answer 3

あなたがスパークラインオブジェクトを作成し、あなたの値下げ対象に追加することができsparkTableというパッケージもあります。オブジェクトは、rmarkdownで参照できると推測しているggplotオブジェクトのようなものです。しかし、オブジェクトをpdf、eds、またはpngとして保存することもできます。

また、あなたが印刷したような表を印刷するsparkTableオブジェクトもあります。

紙（P28）から：

‘‘‘{r, echo=TRUE} 
require(sparkTable) 
sl <- newSparkLine (values = rnorm (25) , lineWidth = .18, pointWidth = .4, 
width = .4, height = .08) 
export(sl , outputType = "png", filename = "sparkLine ") 
‘‘‘ 
This is a sparkline included in the ![ firstSparkLine ](sparkLine.png) 
text ...