0

我有一个如下所示的面板数据集。但实际数据集有数千个观察值。我想为 1984-1998 年（15 年）创建 14 个因子作为新列“Year_dum”。我搜索了在 r 中创建虚拟变量，但找不到使用年份整数的方法。任何人都可以帮我在r中做到这一点。 

+--------+------+------+------+----------+
| 时间 | 年份 | 事务所 | 产品 | 年份_dum |
+--------+------+------+------+----------+
| 84 年 1 月 | 1984 | 一个 | 28.2 | 0 |
| 84 年 2 月 | 1984 | 一个 | 26.6 | 0 |
| 84 年 3 月 | 1984 | 一个 | 30.3 | 0 |
| 85 年 4 月 | 1985 | 一个 | 33.2 | 1 |
| 85 年 5 月 | 1985 | 一个 | 30.1 | 1 |
| 85 年 6 月 | 1985 | 一个 | 28.3 | 1 |
| 84 年 1 月 | 1984 | 乙| 28.6 | 0 |
| 84 年 2 月 | 1984 | 乙| 28.9 | 0 |
| 84 年 3 月 | 1984 | 乙| 28.1 | 0 |
| 84 年 10 月 | 1984 | C | 28.8 | 0 |
| 85 年 11 月 | 1985 | C | 31.6 | 1 |
| 86 年 12 月 | 1986 | C | 26.9 | 2 |
| 89 年 1 月 | 1989 | C | 28.6 | 5 |
| 98 年 2 月 | 1998 | C | 29.6 | 14 |
+--------+------+------+------+----------+

可以使用以下 dput 访问这个简单的数据集。

structure(list(Time = structure(c(6L, 4L, 9L, 2L, 10L, 8L, 6L, 
4L, 9L, 12L, 11L, 3L, 7L, 5L, 1L, 1L, 1L), .Label = c("", "Apr-85", 
"Dec-86", "Feb-84", "Feb-98", "Jan-84", "Jan-89", "Jun-85", "Mar-84", 
"May-85", "Nov-85", "Oct-84"), class = "factor"), year = c(1984L, 
1984L, 1984L, 1985L, 1985L, 1985L, 1984L, 1984L, 1984L, 1984L, 
1985L, 1986L, 1989L, 1998L, NA, NA, NA), Firm = structure(c(2L, 
2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 1L, 1L, 1L
), .Label = c("", "A", "B", "C"), class = "factor"), Prod = c(28.2, 
26.6, 30.3, 33.2, 30.1, 28.3, 28.6, 28.9, 28.1, 28.8, 31.6, 26.9, 
28.6, 29.6, NA, NA, NA), Year_dum = c(0L, 0L, 0L, 1L, 1L, 1L, 
0L, 0L, 0L, 0L, 1L, 2L, 5L, 14L, NA, NA, NA)), .Names = c("Time", 
"year", "Firm", "Prod", "Year_dum"), class = "data.frame", row.names = c(NA, 
-17L))
4

3 回答 3

2

例如，您可以使用该dummies软件包（首先使用 安装它install.packages("dummies")）。一个例子：

library(dummies)

df <- data.frame("val" = 1:5, "year" = c(1984, 1984, 1985, 1985, 1986))
# after creating the dummies, column-bind it to the original dataframe
df <- cbind(df, dummy("year", df, sep = "_"))
> df

  val year year_1984 year_1985 year_1986
1   1 1984         1         0         0
2   2 1984         1         0         0
3   3 1985         0         1         0
4   4 1985         0         1         0
5   5 1986         0         0         1
于 2016-03-16T07:35:16.583 回答
0

我们能试试

df$Year_dum <- df$year-min(df$year)
df$Year_dum
#[1] 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1

或使用match

with(df, match(year, unique(year))-1)
#[1] 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1
于 2016-03-16T10:38:27.753 回答
0

这是一个base仅使用的示例：

for(i in 1:nrow(x)) assign(paste("year", x$year[i], sep="_"), x$year == x$year[i])
于 2016-03-16T09:55:40.580 回答