r - R散点图 - 文本和标记的不同颜色

Question

我有这样的问题 - 我想制作标记具有不同颜色的散点图。但问题是标记的名称——它有不同于点的颜色。

有没有办法让它保持一致？

这是代码示例：

library(data.table)
library(plotly)

data<-data.table(c('A','B','C'),c(1,2,3),c(3,2,1))

plot_ly(data,x=data$V2, y=data$V3,type='scatter',marker=list(size=10)) %>%
add_text(text=data$V1,textposition = "top right",color=data$V1) %>%
layout(showlegend = FALSE)

Answer 1

尝试这个。根据需要更改t中的内容。

library(data.table)
library(plotly)

data<-data.table(c('A','B','C'),c(1,2,3),c(3,2,1))

t <- list(
          family = "sans serif",
          size = 14,
          color = toRGB("grey50"))

plot_ly(data,x=data$V2, y=data$V3,type='scatter',marker=list(size=10)) %>%
add_text(textfont = t, text=data$V1,textposition = "top right",color=data$V1) %>%
layout(showlegend = FALSE)