R Studio中Emoji数据可视化与分析的替代工具求助

如果emojifont和emo包无法解决Emoji显示为方块的问题，可以尝试以下工具包，结合系统Emoji字体实现正确渲染：

ggtext #

ggtext支持在ggplot2中渲染富文本，包括Emoji，核心是调用系统支持的Emoji字体。适合静态可视化场景，比如共现网络的节点标注。

library(ggplot2)
library(ggtext)

# 示例：带Emoji的散点图（可扩展到网络图节点）
emoji_cooccur <- data.frame(
  emoji = c("😀", "😂", "❤️", "🔥"),
  x = c(1, 2, 3, 4),
  y = c(2, 4, 1, 3),
  size = c(8, 6, 9, 7)
)

ggplot(emoji_cooccur, aes(x, y)) +
  geom_richtext(
    aes(label = emoji),
    size = emoji_cooccur$size,
    # 根据系统选择对应字体：Windows用"Segoe UI Emoji"，Mac用"Apple Color Emoji"，Linux用"Noto Color Emoji"
    family = "Segoe UI Emoji",
    fill = NA, label.color = NA
  ) +
  theme_void()

grid + igraph #

如果是igraph绘制的共现网络，可直接用grid包的textGrob自定义节点，绕过igraph默认的文本渲染限制。

library(igraph)
library(grid)

# 构造示例Emoji共现网络
cooccur_graph <- graph_from_data_frame(
  data.frame(from = c("😀", "😀", "❤️"), to = c("😂", "❤️", "🔥"))
)

# 先绘制无节点标签的网络图
plot(cooccur_graph, vertex.shape = "none", vertex.label = NA, edge.width = 2)

# 为每个节点添加Emoji
node_pos <- vertex.position(cooccur_graph)
for (i in seq_along(V(cooccur_graph))) {
  emoji <- V(cooccur_graph)$name[i]
  # 指定Emoji字体
  grob <- textGrob(emoji, gp = gpar(fontsize = 20, fontfamily = "Apple Color Emoji"))
  # 将Grob绘制到对应节点位置
  pushViewport(viewport(x = node_pos[i,1], y = node_pos[i,2], width = 0.1, height = 0.1))
  grid.draw(grob)
  popViewport()
}

plotly（交互式可视化） #

plotly依赖浏览器渲染，而现代浏览器原生支持Emoji，适合做交互式的共现网络图，无需额外配置字体。

library(plotly)
library(networkD3)

# 转换igraph对象为networkD3格式
cooccur_graph <- graph_from_data_frame(
  data.frame(from = c("😀", "😀", "❤️"), to = c("😂", "❤️", "🔥"))
)
network_data <- igraph_to_networkD3(cooccur_graph)
network_data$nodes$name <- c("😀", "😂", "❤️", "🔥")

# 生成交互式力导向图
forceNetwork(
  Links = network_data$links,
  Nodes = network_data$nodes,
  Source = "source",
  Target = "target",
  NodeID = "name",
  fontSize = 22,
  zoom = TRUE,
  opacity = 0.8
)

通用注意事项 #

• 确保系统已安装支持彩色Emoji的字体：Windows（Segoe UI Emoji）、Mac（Apple Color Emoji）、Linux（Noto Color Emoji）。
• 在代码中明确指定fontfamily参数为对应系统的Emoji字体，避免R使用默认无Emoji支持的字体。

内容的提问来源于stack exchange，提问作者Zhe Cui