r - 在 R 中的 circlize 包中绘制图

Question

我有不同城市之间的航空公司连接数据。我想在 Circize 包的帮助下制作一个带有颜色控制的和弦图。我需要帮助

Place1<-c("Delhi","Hongkong","Manila","Delhi","Hongkong","Manila","Delhi","Hongkong","Manila")
Place2<-c("Delhi","Delhi","Delhi","Hongkong","Hongkong","Hongkong","Manila","Manila","Manila")
value<-c(8,21,29,41,23,16,14,8,9)
df1<-cbind(Place1,Place2,value)

数据是这样的

Place1     Place2     value
 [1,] "Delhi"    "Delhi"    "8"  
 [2,] "Hongkong" "Delhi"    "21" 
 [3,] "Manila"   "Delhi"    "29" 
 [4,] "Delhi"    "Hongkong" "41" 
 [5,] "Hongkong" "Hongkong" "23" 
 [6,] "Manila"   "Hongkong" "16" 
 [7,] "Delhi"    "Manila"   "14" 
 [8,] "Hongkong" "Manila"   "8"  
 [9,] "Manila"   "Manila"   "9"

Answer 1

我们可以尝试这样的事情：

# Here your data:
Place1<-c("Delhi","Hongkong","Manila","Delhi","Hongkong","Manila","Delhi","Hongkong","Manila")
Place2<-c("Delhi","Delhi","Delhi","Hongkong","Hongkong","Hongkong","Manila","Manila","Manila")
value<-c(8,21,29,41,23,16,14,8,9)
# df1<-cbind(Place1,Place2,value)    this is not useful, it's better to put them in a data.frame
df1 <-data.frame(Place1,Place2,value = as.numeric(value))

然后，我们可以操纵数据，并有情节。正如这个简单的例子中所述，数据应该放在一个表中：你也有值，所以我们可以把它们放在一个基本函数中：

dat <- xtabs(value ~ Place1 + Place2, df1)

现在我们可以绘制数据：

library(circlize)
chordDiagram(as.data.frame(dat), transparency = 0.5)

但是，您可以考虑使用其他一些方法来可视化这些类型的数据。