如何使用R中的轴添加子类别？

Question

我正在尝试将第二类添加到x轴上，并在r下绘制：

这是我的代码：

library(plotly)

data <- data.frame(day=  c(1:4),
                   visit = c("visit1","visit1", "visit2", "visit2"),
                   val = c(1:4),
                   flag = c("","","", 1))

fig <- plot_ly(data= data, x = ~day) %>%
  
  add_trace(y = ~val,
            type = 'scatter',
            mode = 'lines+markers',
            line = list(width = 2, 
                        dash = 'solid')) %>%
  
  add_trace(data= data %>% filter(flag == 1), y = 0, 
            type = 'scatter', 
            hoverinfo = "text",
            mode = 'markers',
            name = "flag",
            text = paste("<br>N°",data$ID[data$flag == 1], 
                         "<br>Day",data$day[data$flag == 1]),
            marker = list(
              color = 'red',
              symbol = "x",
              size = 12
            ),
            showlegend = T
  )

fig

我尝试过，这似乎不错，但是标记者从该图，也许是由于数据过滤器。

library(plotly)

data <- data.frame(day=  c(1:4),
                   visit = c("visit1","visit1", "visit2", "visit2"),
                   val = c(1:4),
                   flag = c("","","", 1))

fig <- plot_ly(data= data, x = ~list(visit,day)) %>%
  
  add_trace(y = ~val,
            type = 'scatter',
            mode = 'lines+markers',
            line = list(width = 2, 
                        dash = 'solid')) %>%
  
  add_trace(data= data %>% filter(flag == 1), y = 0, 
            type = 'scatter', 
            hoverinfo = "text",
            mode = 'markers',
            name = "flag",
            text = paste("<br>N°",data$ID[data$flag == 1], 
                         "<br>Day",data$day[data$flag == 1]),
            marker = list(
              color = 'red',
              symbol = "x",
              size = 12
            ),
            showlegend = T
  )

fig

Answer 1

您没有提供可再现的问题，所以我已经制作了数据。 （嗯，我无耻地从

library(plotly)

fig <- plot_ly() %>% 
  add_bars(x = list(rep(c("first", "second"), each = 2),
                    rep(LETTERS[1:2], 2)),
           y = c(2, 5, 2, 6),
           name = "Adults") %>% 
  add_bars(x = list(rep(c("first", "second"), each = 2),
                    rep(LETTERS[1:2], 2)),
           y = c(1, 4, 3, 6),
           name = "Children")
fig

---

---

更新

您添加了尝试将其应用于数据的数据和代码。我添加了一个更新，显然错过了问题所在。对此很抱歉。

现在我要注意（希望，对吗？），这是对实际问题的实际解决方案。

为了进行此更改，我修改了您的数据。我将其更改为零，而不是用一个注释的flag。然后，我将flag用作变量。

data <- data.frame(day = c(1:4),
                   visit = c("visit1","visit1", "visit2", "visit2"),
                   val = c(1:4),
                   flag = c("","","", 0))

fig <- plot_ly(data= data, x = ~list(visit,day)) %>%
  add_trace(y = ~val,
            type = 'scatter', mode = 'lines+markers',
            line = list(width = 2, 
                        dash = 'solid')) %>%
  add_trace(y = ~flag, 
            type = 'scatter', hoverinfo = "text",
            mode = 'markers', name = "flag",
            text = paste("<br>N°",data$ID[data$flag == 1], 
                         "<br>Day",data$day[data$flag == 1]),
            marker = list(
              color = 'red', symbol = "x", size = 12),
            showlegend = T)
fig

您将收到有关离散的警告＆amp;非差异数据并不是真正准确的数据，但仍显示出来。