回答編集履歴
1
コピペミス修正
test
CHANGED
|
@@ -16,11 +16,11 @@
|
|
|
16
16
|
|
|
17
17
|
)
|
|
18
18
|
|
|
19
|
+
df$name.f <- as.factor(df$name)
|
|
20
|
+
|
|
19
21
|
|
|
20
22
|
|
|
21
23
|
df1 <- subset(df, 1999<=year & year<=2001)
|
|
22
|
-
|
|
23
|
-
|
|
24
24
|
|
|
25
25
|
tapply(df1$stockprice, df1$name.f, sum)
|
|
26
26
|
|