小编New*_*ode的帖子

在浏览了highcharter包文档之后,访问他的网站JBKunst,并查看list.parse2(),我仍然无法解决问题.问题如下:要将多个系列从data.frame绘制成堆叠条形图,系列可以是10到30系列.目前系列已定义如下,但显然必须有一种更简单的方法,例如将列表或熔化的data.frame传递给函数hc_series,类似于ggplot2可以完成的操作.

在带有虚拟数据的代码下面

mydata <- data.frame(A=runif(1:10),
               B=runif(1:10),
               C=runif(1:10))

highchart() %>% 
hc_chart(type = "column") %>% 
hc_title(text = "MyGraph") %>% 
hc_yAxis(title = list(text = "Weights")) %>% 
hc_plotOptions(column = list(
   dataLabels = list(enabled = FALSE),
   stacking = "normal",
   enableMouseTracking = FALSE)
   ) %>% 
hc_series(list(name="A",data=mydata$A),
        list(name="B",data=mydata$B),
        list(name="C",data=mydata$C))

产生此图表:

在 R Notebooks 中，当打印对象时，Notebook 将以非常干净清晰的方式显示 data.frame，并具有可滚动功能。然而，当文档被编织为 html 输出时，Rmarkdown 将以不同的方式显示它。我想在此表中捕获两个关键功能：

• 列类型/类（字符/因子/双精度等）
• 如果列包含列表结构，则该列中基础数据的类

我可以在对象前面添加任何代码以获得与 R Notebook 中相同的功能吗？

下面是一个例子：

ldata <- 26
xts_list <- replicate(ldata,xts(rnorm(ldata),order.by = seq(Sys.Date(),Sys.Date() + 25,1)),simplify = FALSE)

tibble(A = LETTERS,
   B = 1:ldata,
   C = letters,
   D = rnorm(ldata),
   E = colors()[1:ldata],
   F = sample(month.abb,ldata,replace = TRUE),
   G = xts_list)

运行块时 R Notebook 中的输出：

networkd3包包含一些非常好的函数来创建明显的网络。不同的函数有不同的参数，因此这个问题专门针对 RadialNetwork() 函数。是否可以根据给定的向量改变节点笔划的颜色？

下面的代码创建了一个网络图，但将节点描边的参数更改为包含不同颜色的向量不起作用。

library(networkD3)
library(tidyverse)
library(data.tree)

## Data
input <- list(number=50)
Data_tree <- data.frame(Start="Class",
                      Asset = sample(c("FI","Equity","Currency","Commodities"),input$number,replace = TRUE),
                      Sub_Asset = sample(c("Asia","Europe","USA","Africa","ME"),input$number,replace = TRUE),
                      Ticker = replicate(input$number,paste0(sample(LETTERS,3),collapse=""))) %>% 
unite(col="pathString",Start,Asset,Sub_Asset,Ticker,sep="-",remove=FALSE) %>%
select(-Start) %>% as.Node(pathDelimiter = "-")



radialNetwork(ToListExplicit(Data_tree, unname = TRUE ), 
           linkColour = "#ccc",
           nodeColour = "#fff",
           nodeStroke = "orange",
           textColour = "#cccccc")