用r语言实现可视化：在x3表中有follwinglist中包含以分号做间隔的人名，研究它与user_id__str间的连线绘制立体球，请提供r代码，能够在r4.2版本运行

实现这个可视化需要用到`rgl`包和`igraph`包。下面是一个简单的示例代码，它假设你已经读入了数据，并将`followinglist`中的人名分割成了一个个单独的字符串，存储在`followings`变量中：

library(rgl)
library(igraph)

# 构建有向图
g <- graph.empty(n = length(unique(c(x3$user_id_str, followings))), directed = TRUE)
V(g)$name <- unique(c(x3$user_id_str, followings))
for (i in 1:nrow(x3)) {
  for (j in strsplit(x3$followingList[i], ";")[[1]]) {
    g <- add_edges(g, from = x3$user_id_str[i], to = j)
  }
}

# 绘制3D图形
rgl.open()
rgl.clear()
layout <- layout.sphere(g)
E(g)$color <- "gray"
E(g)$arrow.size <- 0.2
E(g)$arrow.width <- 0.1
E(g)$arrow.mode <- 1
plot(g, layout = layout, edge.curved = FALSE, edge.width = 0.5, vertex.size = 2,
     edge.color = E(g)$color, vertex.label = NA, edge.arrow.size = E(g)$arrow.size,
     edge.arrow.width = E(g)$arrow.width, edge.arrow.shape = E(g)$arrow.mode)

这个代码会生成一个3D图形，每个节点代表一个人，每条有向边代表一个人与其followings之间的关系。节点和边的颜色、大小等都可以根据需要进行调整。请注意，由于数据的不同，你可能需要对代码进行一些修改才能适应你自己的数据。