小编use*_*720的帖子

我想完美地对齐这些情节:

这是R代码:

library(tidyverse)
library(gridExtra)
groupes <- tribble(~type, ~group, ~prof, ~var,
                   1,1,1,12,
                   1,1,2,-24,
                   1,2,1,-11,
                   1,2,2,7,
                   2,1,1,10,
                   2,1,2,5,
                   2,2,1,-25,
                   2,2,2,2,
                   2,3,1,10,
                   2,3,2,3,
                   3,1,1,10,
                   3,1,2,-5,
                   3,2,1,25,
                   3,2,2,2,
                   3,3,1,-10,
                   3,3,2,3,
                   3,4,1,25,
                   3,4,2,-18)


hlay <- rbind(c(1,2,3),
              c(1,2,3),
              c(NA,2,3),
              c(NA,NA,3))

p1 <-  groupes %>% filter(type==1) %>% ggplot(aes(prof,var)) + geom_col() + facet_wrap(~group,ncol=1) +
  coord_cartesian(ylim=c(-25,25)) +
  labs(title="type 1",x="",y="")
p2 <-  groupes %>% filter(type==2) %>% ggplot(aes(prof,var)) + geom_col() + facet_wrap(~group,ncol=1) +
  coord_cartesian(ylim=c(-25,25)) +
  labs(title="type 2",x="",y="")
p3 <-  groupes %>% filter(type==3) %>% ggplot(aes(prof,var)) + geom_col() + facet_wrap(~group,ncol=1) +
  coord_cartesian(ylim=c(-25,25)) + …

如何在 d3.js 中使用 graphml 文件？[我想画一个力有向图]

• 将文件转换为 .json 是否更简单？如何 ？我一直找不到转换器（我找到了一个 python 转换器，但我不是 python 用户）

• 可以直接使用graphml文件吗？可能是 d3.xml 吗？

注意：graphml 看起来像这样

<graph id="G" edgedefault="directed">
<node id="n0">
  <data key="v_name">JohnMaynardKe...</data>
  <data key="v_label">John Maynard Ke...</data>
  <data key="v_size">4</data>
  <data key="v_label.cex">0.3</data>
  <data key="v_frame.color">#ffffff00</data>
  <data key="v_color">#54FF00CC</data>
</node>
<node id="n1">
  <data key="v_name">JosephA.Schum...</data>
  <data key="v_label">Joseph A. Schum...</data>
  <data key="v_size">4</data>
  <data key="v_label.cex">0.3</data>
  <data key="v_frame.color">#ffffff00</data>
  <data key="v_color">#54FF00CC</data>
</node>
<edge source="n0" target="n1">
  <data key="e_nombre">2</data>
  <data key="e_width">2</data>
  <data key="e_arrow.size">0</data>
  <data key="e_color">#00000021</data>
</edge>
<edge source="n0" target="n7">
  <data key="e_nombre">2</data>
  <data key="e_width">2</data>
  <data key="e_arrow.size">0</data>
  <data key="e_color">#00000021</data>
</edge>

....

这是一个 R -> Latex 问题。\n我使用 tufte_handout

我需要将全角表格的标题放在表格下方的页边距中，因为表格太宽了。

这是 Rmarkdown 文件

---\ntitle: "Untitled"\nauthor: "A. Nonymous"\ndate: "19/8/2017"\nheader-includes:\n   - \\usepackage{array}\noutput:\n  tufte::tufte_handout:\n    citation_package: natbib\n    keep_tex: yes\n    latex_engine: xelatex\n---\n\n```{r setup, include=FALSE}\nlibrary(tidyverse)\nlibrary(tibble)\nlibrary(knitr)\nlibrary(kableExtra)\nlibrary(tufte)\n\nknitr::opts_chunk$set(echo = TRUE)\n\noptions(knitr.table.format = "latex") \n```\n\n\n# table\n\n\n```{r table-1, fig.fullwidth=T, echo=FALSE}\n\ntmp <- tibble(`long titre de texte de colonne` = 1:3, \n              `encore un long titre de colonne` = 101:103,\n       `c\'est tr\xc3\xa8s long l\xc3\xa0 aussi (trop)`=31:33, \n       `mais pourquoi est-ce si long ? (oui, pourquoi?)`=c("a","b","b"))\ntmp <- as.data.frame(tmp)\n\nknitr::kable(tmp,booktabs=TRUE,caption="test de test de table, mais c\'est …