ggplotly không hiển thị geom_line đúng

Question

Tôi đang cố gắng sử dụng ggplotly để thêm tương tác vào biểu đồ ggplot của tôi. Tôi đã thử chạy này trong cả hai RStudio và từ dòng lệnh, với kết quả tương tự.

dữ liệu:

library(plotly) 
df1 <- as.data.frame(list('x'=1:100,'y'=1:100,'lw'=abs(rnorm(100)))) 
b <- ggplot(data=df1, aes(x=x,y=y)) + geom_line(size=df1$lw) 

Nếu tôi hiển thị b bình thường, tức là > b, tôi nhận được một âm mưu đúng

Tuy nhiên, nếu tôi sau đó nhập ggplotly(), tôi nhận được cốt truyện dưới đây:

Sử dụng dữ liệu thực của tôi, kết quả thậm chí còn tồi tệ hơn. Dưới đây là một plot(), đó là chính xác, tiếp theo là ggplotly()

Bất kỳ ý tưởng làm thế nào tôi có thể hiển thị này một cách chính xác?

Answer 1

Mặc dù điều này được gây ra bởi lỗi (xem nhận xét từ takje), bạn có thể xử lý lỗi này bằng cách xử lý ô của bạn không phải là một dòng có nhiều chiều rộng, nhưng như nhiều đoạn đường, mỗi đoạn có chiều rộng cố định .

Thứ nhất, thiết lập dữ liệu:

library(ggplot2) 
library(plotly) 
set.seed(123) 
df1 <- as.data.frame(list('x'=1:100,'y'=1:100,'lw'=abs(rnorm(100)))) 

Bây giờ chúng ta xây dựng một khung dữ liệu mới có chứa điểm bắt đầu và điểm kết thúc của mỗi đoạn thẳng. I E. Đoạn đường thứ n chuyển từ (x_n, y_n) sang (x_n + 1, y_n + 1). Sự lặp lại (rep) trong đoạn mã sau là vì các điểm trung gian tạo thành điểm cuối của một phân đoạn, và cũng là điểm bắt đầu của một phân đoạn tiếp theo. Những điểm đầu tiên và cuối cùng của toàn bộ không được lặp lại bởi vì họ chỉ xuất hiện trong một đoạn thẳng duy nhất:

x2 <- c(df1$x[1], rep(df1$x[2:(NROW(df1)-1)], each=2), df1$x[NROW(df1)]) 
y2 <- c(df1$y[1], rep(df1$y[2:(NROW(df1)-1)], each=2), df1$y[NROW(df1)]) 
df2 <- data.frame(x2,y2) 

Tiếp theo, chúng ta gọi mỗi người trong số x và y phối hợp với một nhãn segnum, mà đề cập đến đó phân khúc dòng họ đang ở:

df2$segnum <- rep(1:(NROW(df1)-1), each=2) 

và một véc tơ tương ứng với những con số phân đoạn, và chứa độ rộng dòng cho từng phân khúc:

df2$segw <- rep(df1$lw[1:(NROW(df1)-1)], each=2) 

và cốt truyện:

ggplot(data=df2, aes(x=x2,y=y2, colour=segnum)) + geom_line(aes(group = segnum, size=segw)) 

Cũng trong plotly:

ggplotly()