> data1 <- data.frame(
+ id = c(1, 2, 3, 4, 5),
+ city = I(c("GZ", "ZZ", 'BJ', "Newyork", "London")),
+ nationality = I(c( "CN", 'CN','CN','US',"BR")),
+ Count = c(100,30,20,40,50))
>
> data1
id city nationality Count
1 1 GZ CN 100
2 2 ZZ CN 30
3 3 BJ CN 20
4 4 Newyork US 40
5 5 London BR 50
>
>
>
>
> data2 <- data.frame(
+ id = c(1, 2, 3, 4, 5),
+ city = I(c("GZ", "ZZ", 'SH', "Newyork", "Paris")),
+ nationality = I(c( "CN", 'CN','CN','US',"Fr")),
+ Area = c(3,5,7,3,2))
>
> data2
id city nationality Area
1 1 GZ CN 3
2 2 ZZ CN 5
3 3 SH CN 7
4 4 Newyork US 3
5 5 Paris Fr 2