将数组的CSV作为列表导入

Question

我正在尝试做以下几件事：

我有一个包含N行和2列的.csv文件，需要导入并转换为列表。

来自.csv的示例文件：

First seven rows of data

我使用以下命令导入：points <- read.csv("points.csv")

'data.frame':   42 obs. of  2 variables:
 $ Firefly     : int  0 1 0 1 0 1 0 1 0 1 ...
 $ Hawkes_times: Factor w/ 42 levels "[ 0.03485687  0.20167375  0.20275073

我需要一个有序的“2的列表”(每个Firefly一个)，结构如下：

> str(points)
List of 2
 $ : num [1:33] 0.79 0.87 0.88 0.89 0.94 1.01 1.13 1.19 ...
 $ : num [1:14] 0.00 0.10 0.56 0.67 1.27 1.31 1.37 1.42 ...

，其中第一个列表表示萤火虫== 0，第二个列表表示萤火虫== 1。

我尝试以下操作：

fy0 <- subset(points,Firefly == 0)
fy1 <- subset(points,Firefly == 1)
points.list <- list(fy0,fy1)

> str(points.list)
List of 2
 $ :'data.frame':   21 obs. of  2 variables:
  ..$ Firefly     : int [1:21] 0 0 0 0 0 0 0 0 0 0 ...
  ..$ Hawkes_times: Factor w/ 42 levels "[ 0.03485687  0.20167375  0.20275073  0.20941455  0.40515277  0.47026309\n  0.55714817  0.64789982  0.70749241 "| __truncated__,..: 30 29 28 31 39 40 33 37 25 24 ...
 $ :'data.frame':   21 obs. of  2 variables:
  ..$ Firefly     : int [1:21] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ Hawkes_times: Factor w/ 42 levels "[ 0.03485687  0.20167375  0.20275073  0.20941455  0.40515277  0.47026309\n  0.55714817  0.64789982  0.70749241 "| __truncated__,..: 26 32 21 23 20 41 34 22 27 36 ...

我想我需要一个as.numeric(fy0$Hawkes_times)，但是我想避免循环，因为我将有几百行和n个Firefly值(fy0，fy1，fy2，...fyn)。

谢谢!

-Richard

Answer 1

points <- data.frame(firefly=rep(0:1, times=10), times=1:20)
split(points$times, points$firefly)
# $`0`
#  [1]  1  3  5  7  9 11 13 15 17 19
# $`1`
#  [1]  2  4  6  8 10 12 14 16 18 20

这并不依赖于同等规模的组：

set.seed(42)
points <- data.frame(firefly=sample(0:1, size=20, replace=TRUE), times=1:20)
split(points$times, points$firefly)
# $`0`
# [1]  3  8 11 14 15 18 19
# $`1`
#  [1]  1  2  4  5  6  7  9 10 12 13 16 17 20

正如你所看到的，顺序是保留的。