plotly / plotly/plotly.R

Solution to combine facetted legends breaks for continuous variable

Đang mở
#2,112 0 bình luận 0 reaction 0 người được giao Xem trên GitHub

Chưa có ai nhận issue này.

Ngôn ngữ chính
R
Star
2.7k
Fork
641
Chỉ số merge pull request
Không có pull request nào được merge trong 30 ngày

Mô tả

I am trying to use plotly to create facetted plots - I do this by using group_map() to create my plots robustly.

The solution I currently have works in reducing duplicated legend labels when using discrete variables for color/size/etc but fail to work for continuous variables. I assume this is do to each facetted plot potentially having different total ranges for the continuous variable.

library(tidyverse)
library(plotly)

city_list = unique(txhousing$city) %>%  
  sample(8)

##solution works for discrete labels 
txhousing %>%  
  filter(month < 6, 
         city %in% city_list) %>% 
  group_by(month) %>% 
  group_map(~{
    plot_ly(.x, x=~year, y = ~sales, color = ~city,legendgroup = ~city,type = "bar"
            ,showlegend = (.y == "1")
            ) %>%
      layout(yaxis = list(
        title = paste0(c(rep("&nbsp;", 20),
                         paste("<b>", as.character(.y), "</b>"),
                         rep("&nbsp;", 20),
                         rep("\n&nbsp;", 3)),
                       collapse = ""))) %>%
      layout(barmode = 'stack')
  }
  ) %>%
  subplot(nrows = NROW(.), margin = .05, shareX = T, shareY = T, titleY = T) 

##solution fails to merge legends for continuous variable
txhousing %>%  
  filter(month < 6, 
         city %in% city_list) %>% 
  group_by(month) %>% 
  group_map(~{
    plot_ly(.x, x=~year, y = ~sales, color = ~volume,legendgroup = ~volume,type = "bar"
            ,showlegend = (.y == "1")
            ) %>%
      layout(yaxis = list(
        title = paste0(c(rep("&nbsp;", 20),
                         paste("<b>", as.character(.y), "</b>"),
                         rep("&nbsp;", 20),
                         rep("\n&nbsp;", 3)),
                       collapse = ""))) %>%
      layout(barmode = 'stack')
  }
  ) %>%
  subplot(nrows = NROW(.), margin = .05, shareX = T, shareY = T, titleY = T) 

Hướng dẫn đóng góp

Mở hướng dẫn đóng góp

Bắt đầu từ đâu

  1. Đọc hết issue, rồi đọc hướng dẫn đóng góp của dự án.
  2. Bình luận trên issue rằng bạn sẽ nhận — tránh hai người làm cùng một việc.
  3. Fork repository và làm thay đổi trên một nhánh.
  4. Mở pull request có tham chiếu số hiệu của issue.

Hướng nghiên cứu

Bắt đầu bằng cách chạy hai bản tái hiện R được cung cấp sử dụng plot_ly(), group_map() và subplot(), sau đó so sánh các trường hợp màu rời rạc và liên tục. Theo dõi cách subplot kết hợp các trace và chú giải; hoàn thành khi các chú giải của biến liên tục được kết hợp mà không làm hỏng hành vi của biểu đồ phân mặt.

Do mô hình lập chỉ mục viết ra từ nội dung của issue.

Đánh giá

Công nghệ
r
Lĩnh vực
data-visualization
Loại issue
Lỗi
Độ khó
4/5
Thời gian dự kiến
3-5 ngày
Mức độ hoạt động
Đình trệ
Độ rõ ràng
Khá rõ ràng
Mức phù hợp với người mới
35/100

Nhận issue mới trong hộp thư của bạn

Bản tóm tắt ngắn những issue GitHub phù hợp với người mới.