0

これは比較的単純かもしれません。次のような巨大なデータ フレームがあります。

df1 <- structure(list(place = structure(c(1L, 5L, 1L, 4L), .Label = c("1","2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23","24", "25", "26"), class = "factor"), x = structure(list(c("A", "B", "C", "D", "E"), c("D", "E", "F","G", "H", "I"), c("D", "E", "F", "G", "H"), c("F", "H")), class = "AsIs")), .Names = c("place", "x"), row.names = c(1L, 2L, 3L, 4L), class = "data.frame")

> df1
  place            x
1     1 A, B, C,....
2     5 D, E, F,....
3     1 D, E, F,....
4     4         F, H

の各リスト要素に対応する値を持つ別のものdf1：

df2 <- structure(list(x = c('A','B','C','D','E','F','G','H','I','J','K','L','M'), value = c("5.2", "1.8", "2.7","3.8", "5.0","3.2", "4.5","2.4", "3.9", "1.2","2.3","4.3", "3.0")), .Names = c("x", "value"), row.names = c(1L,2L,3L,4L,5L,6L,7L,8L,9L,10L, 11L, 12L, 13L), class = "data.frame")

   x value
1  A   5.2
2  B   1.8
3  C   2.7
4  D   3.8
5  E   5.0
6  F   3.2
7  G   4.5
8  H   2.4
9  I   3.9
10 J   1.2
11 K   2.3
12 L   4.3
13 M   3.0

df1の要素を対応する値に置き換えてdf2(したがって、すべてAの indf1が必要である5.2など)、これらの値を使用して各場所の平均値などの操作を実行したいと考えてxいます。ありがとう！

4

2 に答える 2

2

データセットが大きい場合、qdap のlookup関数を使用した環境ルックアップが役立つ場合があります。

library(qdap)
lapply(df1[, 2], lookup, df2)

または手段を得るために

df2$value <- as.numeric(df2$value) #convert your df2 value column to numeric
sapply(df1[, 2], function(x) mean(lookup(x, df2)))
于 2013-06-24T20:45:54.193 に答える