basierend auf den Werten in einem anderen

Question

ich folgendes Problem:

names <- c("Peter", "Gabriel", "James", "Philip") 
city <- c("LA", "NY","Chicago","Chicago") 
number <- seq(1, length(names)) 

from <- c("Peter", "Peter", "Gabriel", "James", "James") 
to <- c("James","Gabriel", "Philip", "Gabriel", "Philip") 

nodes <- data.frame(names, city, number) 
edges <- data.frame(from, to) 

Wie ändere ich die Werte von edges$from die in nodes$number passen?

Answer 1

Sie die folgende verwenden können,

edges$from <- sapply(edges$from, function(i)nodes$number[match(i, nodes$names)]) 
edges 
# from to 
#1 1 James 
#2 1 Gabriel 
#3 2 Philip 
#4 3 Gabriel 
#5 3 Philip