Создание наведения на спину к задней гистограмме в R

Question

Таблица образцов

Животные <- read.table (header = TRUE, text = 'Options_ord Причина Пол Количество 1 Нет Подлинная M 24 2 Да Подлинная F -16 3 Нет Не классифицировано M 85 4 Нет Не классифицировано F 415 Да Таксономический F -2 6 Да Таксономический M 7 7 Нет Неясно F -41 8 Да Неясно M 117 ') </p>

# Попытка перестроиться в гистограмму в R

>     trace_graph3<- ggplot(Animals, aes(x = (Animals$Options_ord), y = 
          Animals$Count, fill = Gender)) +
          geom_bar(stat = "identity") + 
          facet_share(~Gender, dir = "h", scales = "free", reverse_num = 
           TRUE) + theme_bw(base_size = 9.5)+
          coord_flip() +
           theme_minimal()

Печать графика

print (trace_graph3 + labs (y = "in%", x = ""))

Для приведенного выше графика я хочусоздать парениеЯ попытался ggplotly, но, к сожалению, он выдает ошибку при попытке применить не функцию в R

Answer 1

Я бы предложил установить и использовать плотно.все, что вам нужно, это плотно обернуть ваш обычный ggplot.Plotly очень мощный, но простой, когда дело доходит до интерактивности.

install.packages('plotly')
library(plotly)

ggplotly(trace_graph3)