creating labels in parallel coordinates plot with R, ggparcoord()

huangapple
go评论91阅读模式
英文:

creating labels in parallel coordinates plot with R, ggparcoord()

问题

我想在平行坐标图的每行左侧只显示一次标签。我只能在每个实例上获得标签，所以看起来不清晰。

  1. ## 测试数据集
  2. data2 <- data.frame(
  3.   "geneSymbol" = paste("Gene", 1:10),
  4.   "condition1" = rnorm(10, 3, 1),
  5.   "condition2" = rnorm(10, 4, 0.5),
  6.   "condition3" = rnorm(10, 7, 0.3)
  7. )
  9. # 使用GGally中的ggparcoord()构建平行坐标图
  10. ggparcoord(data= data2,
  11.            columns = 2:4,
  12.            groupColumn = 1,
  13.            scale = "std",
  14.            scaleSummary = "mean",
  15.            centerObsID = 1,
  16.            missing = "exclude",
  17.            showPoints = FALSE,
  18.            splineFactor = FALSE,
  19.            alphaLines = 1,
  20.            boxplot = TRUE,
  21.            shadeBox = NULL,
  22.            mapping = NULL,
  23.            title = "TEST")+
  24.   geom_text(aes(label=geneSymbol))

有人有什么想法吗？
最好的祝福
wbart

英文:

I want to have labels only one time on the left of each line in a parallel coordinates plot. I only managed to get labels on every instances so it doesn't look clear.

  1. ## test data set
  2. data2 &lt;- data.frame(
  3.   &quot;geneSymbol&quot; = paste(&quot;Gene&quot;, 1:10),
  4.   &quot;condition1&quot; = rnorm(10, 3, 1),
  5.   &quot;condition2&quot; = rnorm(10, 4, 0.5),
  6.   &quot;condition3&quot; = rnorm(10, 7, 0.3)
  7.   )
  9. #building parallel coordination plot with ggparcoord() from GGally
  10. ggparcoord(data= data2,
  11.            columns = 2:4,
  12.            groupColumn = 1,
  13.            scale = &quot;std&quot;,
  14.            scaleSummary = &quot;mean&quot;,
  15.            centerObsID = 1,
  16.            missing = &quot;exclude&quot;,
  17.            showPoints = FALSE,
  18.            splineFactor = FALSE,
  19.            alphaLines = 1,
  20.            boxplot = TRUE,
  21.            shadeBox = NULL,
  22.            mapping = NULL,
  23.            title = &quot;TEST&quot;)+
  24.   geom_text(aes(label=geneSymbol))

Does anyone has an idea?
Best regards
wbart

答案1

得分: 0

你可以使用ifelse函数使标签依赖于x轴的值。

  1. ggparcoord(data = data2,
  2.            columns = 2:4,
  3.            groupColumn = 1,
  4.            scale = "std",
  5.            scaleSummary = "mean",
  6.            centerObsID = 1,
  7.            missing = "exclude",
  8.            showPoints = FALSE,
  9.            splineFactor = FALSE,
  10.            alphaLines = 1,
  11.            boxplot = TRUE,
  12.            shadeBox = NULL,
  13.            mapping = NULL,
  14.            title = "TEST") +
  15.   geom_text(aes(label = ifelse(variable == "condition1", 
  16.                                as.character(geneSymbol), "")), hjust = 1.2)

creating labels in parallel coordinates plot with R, ggparcoord()

英文:

You can make the labels dependent on the x axis value using ifelse

  1. ggparcoord(data= data2,
  2.            columns = 2:4,
  3.            groupColumn = 1,
  4.            scale = &quot;std&quot;,
  5.            scaleSummary = &quot;mean&quot;,
  6.            centerObsID = 1,
  7.            missing = &quot;exclude&quot;,
  8.            showPoints = FALSE,
  9.            splineFactor = FALSE,
  10.            alphaLines = 1,
  11.            boxplot = TRUE,
  12.            shadeBox = NULL,
  13.            mapping = NULL,
  14.            title = &quot;TEST&quot;) +
  15.   geom_text(aes(label = ifelse(variable == &quot;condition1&quot;, 
  16.                                as.character(geneSymbol), &quot;&quot;)), hjust = 1.2)

creating labels in parallel coordinates plot with R, ggparcoord()

huangapple
  • 本文由 发表于 2023年8月8日 20:06:30
  • 转载请务必保留本文链接：https://go.coder-hub.com/76859401.html
  • ggally
  • parallel-coordinates
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定