如何在plotly中将固定的水平和垂直线添加到散点图中 [英] How to add fixed horizontal and vertical lines to a scatter plot in plotly

问题描述

我有以下代码生成散点图，我想添加表示 y 轴和 x 轴平均值的垂直线和水平线，我该怎么做?

I have the following code producing a scatter plot and I would like to add both vertical and horizontal lines representing the mean values of the y axis and x axis, how could I do that?

 f <- list(
   family = "Courier New, monospace",
   size = 18,
   color = "#7f7f7f"
  )
 x <- list(
   title = "Age of Buildings",
   titlefont = f,
   zeroline = FALSE,
   showline = FALSE,
   showticklabels = TRUE,
   showgrid = TRUE
  )
  y <- list(
    title = "Total Violations",
    titlefont = f,
    zeroline = FALSE,
    showline = FALSE,
    showticklabels = TRUE,
    showgrid = TRUE
   )
fig2 <- plot_ly(final, x=~agebuilding, y=~violationstotal, mode= "markers", color = ~INdexrehabless6, size = ~totalvalue)
fig2 <- fig2 %>% layout(xaxis = x, yaxis = y, legend=list(title=list(text='<b> Housing Conditions </b>'))) #chaging name legend
fig2

这是我得到的情节

推荐答案

为你的 df final 使用一些随机数据.我不知道 plotly 是否提供某种 geom_h/vline ...相反，我使用包含线条起点和终点的数据框构造了线条.看看:

Using some random data for your df final. I don't know whether plotly provides some kind of geom_h/vline ... Instead I constructed the lines using dataframes which contain the start and the end point of the lines. Have a look:

set.seed(50)
final <- data.frame(
  agebuilding = 150 * runif(50), 
  violationstotal = 30 * runif(50),
  INdexrehabless6 = factor(sample(0:1, 50, replace = TRUE)),
  totalvalue = 100 * runif(50)
)

mean_x <- data.frame(x = rep(mean(final$agebuilding), 2), y = c(0, ceiling(10* max(final$violationstotal))/10))
mean_y <- data.frame(y = rep(mean(final$violationstotal), 2), x = c(0, ceiling(10* max(final$agebuilding))/10))

library(plotly)
fig2 <- plot_ly(final) %>%
  add_markers(x=~agebuilding, y=~violationstotal, color = ~INdexrehabless6, size = ~totalvalue) %>% 
  add_lines(x = ~x, y = ~y, data = mean_x, name = "Mean x") %>% 
  add_lines(x = ~x, y = ~y, data = mean_y, name = "Mean y")
fig2 <- fig2 %>% layout(xaxis = x, yaxis = y, legend=list(title=list(text='<b> Housing Conditions </b>'))) #chaging name legend
fig2

这篇关于如何在plotly中将固定的水平和垂直线添加到散点图中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！