scatters_titles <- subplot(iris_nstd$scatter, shareX = T, shareY = T) %>%
# dodaje tytuły do wykresów
plotly::layout(showlegend = F,
annotations = list(
list(x = 0.13 , y = 1.03, text = iris_nstd$Species[[1]],
showarrow = F, xref = 'paper', yref = 'paper',
font = list(size = 15)),
list(x = 0.5 , y = 1.03, text = iris_nstd$Species[[2]],
showarrow = F, xref = 'paper', yref = 'paper',
font = list(size = 15)),
list(x = 0.9, y = 1.03, text = iris_nstd$Species[[3]],
showarrow = F, xref = 'paper', yref = 'paper',
font = list(size = 15))))