小编arn*_*ein的帖子

我正在尝试在 grViz 中使用节点属性“alpha”，但我无法使用 R3.5.1 和更新的所有包使其工作（在 RStudio 中）。此代码不产生 alpha。

library(DiagrammeR)

grViz("
digraph  {
node [fontname = Helvetica, 
    shape = rectangle,  width = 3,
    color = red, 
    alpha = 20,
    style = filled 
    ]

edge [color = red,  arrowtail = none]

A [width = 3, label = '@@1']
B [label = 'transportdata.gms']
B1 [label = '@@2']
C [label = 'stockflow.gms']
A -> B
B -> B1
B -> C
B1 -> C
}

[1]: paste0('Original Data (in Excel-File):\\n ','px-x-1103020100_102\\n px- x-1103020100_103\\n px-x-1103020100_105') …

如何在 bookdown 文档中包含闪亮的应用程序？文档中有一个包含 miniUI 的示例，但没有介绍如何包含自己的应用程序。

我尝试使用 include_app("myapp") 或 runApp("myapp") 将“myapp”作为集成文件（app.R）或作为两个文件 server.R 和 ui.R 包含在子目录“myapp”中，但这行不通。

这可能很简单,但我找不到解决方案,我有一年的价值观,并会在接下来的40年内生成相同的数据集.一个小例子看起来像这样(真实数据是2000 x 6)

data <- as_tibble(data.frame(yr =c(2010,2010,2010), values = c("a","b","c")))

现在,我想对2011年到2050年的"价值观"进行相同的观察.任何想法如何在R中做到这一点？

谢谢Renger

我正在尝试绘制具有不同段颜色的阶梯图。我尝试了以下操作，但这仅显示了最后一段：

library(ggplot2)

mcgwh <- structure(list(Technology = c("FOS", "WOOD", "NUCL", "HYD", "HYDS","EWI", "WPV", "WPV"), MC = c(0.00909452733164008, 0.0216749226571617,     0.0473803148589957, 0.05619182757182, 0.070613003340574, 0.0854965730717766,     0.156860794757306, 0.156860794757306), Capacity = c(0, 1190.45103330156,     1419.2619999981, 27551.2619999981, 44237.2619999981, 65110.2619999981,     66943.2619999981, 67990.7380000019)), .Names = c("Technology", "MC", "Capacity"), class = "data.frame", row.names = c(NA, 8L))

ggplot(data = mcgwh, aes(x = Capacity) ) +  geom_step(aes(y = MC,colour = factor(Technology)))

我有一个5列的数据框,我想产生4个额外的列,给出我最后4列和第1列之间的差异.我尝试了以下,但这不起作用:

library(tidyverse)
df <- as.tibble(data.frame(A = c(1,2), B = c(3,4), C = c(4,5), D = c(2,3), E = c(4,5)))
r_diff <- function(x,y){
  z = y - x
  return(z)
}
vars_to_process <- c("B","C","D","E")
df %>% mutate_at(.cols=vars_to_process, .funs =r_diff(.,df[,1])) %>% head()

谢谢Renger