回答編集履歴
1
test
CHANGED
@@ -1,4 +1,4 @@
|
|
1
1
|
```r
|
2
2
|
data <- data %>%
|
3
|
-
mutate(addr = ifelse(is.na(match), addr,
|
3
|
+
mutate(addr = ifelse(is.na(match), addr, trans$after[match(addr, trans$before)]))
|
4
4
|
```
|