在dataframe的表与列表和传染媒介传染媒介

Question

我正在尝试创建一些类似于以下示例的数据图：

n^2

这给出了以下内容：

set.seed(1)
c <- rnorm(3)
df <- as.data.frame(c)
df$a <- strsplit(as.character(c), "1")

我需要的是能够创建一个2D映射，类似于我原本认为用> table(unlist(df$a)) -0.6264538 -0.8356286 0. 0047 0742332 24 83643324222082 1 1 1 1 1 1 1 创建的东西，但是该命令会给出错误：

  

表中的错误（unlist（df $ a），c）：所有参数必须具有相同的长度

输出应该是（手工创建）：

table(unlist(df$a), c)

Answer 1

我们rep可以df$c length df$a table使用table(rep(df$c, lengths(df$a)), unlist(df$a)) # -0.6264538 -0.8356286 0. 0047 0742332 24 83643324222082 #-0.835628612410047 0 1 0 1 0 1 0 #-0.626453810742332 1 0 0 0 1 0 0 #0.183643324222082 0 0 1 0 0 0 1 ，然后使用lengths(df$a) #gives #[1] 2 2 3

rep(df$c, lengths(df$a)) #gives

#[1] -0.6264538 -0.6264538  0.1836433  0.1836433 -0.8356286 -0.8356286
#[7] -0.8356286

其中

 DesiredCapabilities capabilities = DesiredCapabilities.firefox();
 capabilities.setCapability("marionette", true);
 capabilities.setCapability("acceptInsecureCerts", true);
 driver = {new FirefoxDriver(capabilities)}

然后

{{1}}