In pacakage GGally ggparcoord, I want add labels to the plot, but geom_text failed, how to fix it ? Thanks!
<code>library(GGally)
library(tidyverse)
data <- iris
</code>
<code>library(GGally)
library(tidyverse)
data <- iris
</code>
library(GGally)
library(tidyverse)
data <- iris
Create basic plot plot_basic
<code> plot_basic <- data %>%
arrange(desc(Species)) %>%
group_by(Species) %>%
slice(1:3) %>%
ggparcoord(
columns = 1:4, groupColumn = 5, order = "anyClass",
showPoints = TRUE,
title = "Original",
alphaLines = 1
) +
scale_color_manual(values=c( "#69b3a2", "red", "darkblue") ) +
theme(
plot.title = element_text(size=10)
) +
xlab("")
</code>
<code> plot_basic <- data %>%
arrange(desc(Species)) %>%
group_by(Species) %>%
slice(1:3) %>%
ggparcoord(
columns = 1:4, groupColumn = 5, order = "anyClass",
showPoints = TRUE,
title = "Original",
alphaLines = 1
) +
scale_color_manual(values=c( "#69b3a2", "red", "darkblue") ) +
theme(
plot.title = element_text(size=10)
) +
xlab("")
</code>
plot_basic <- data %>%
arrange(desc(Species)) %>%
group_by(Species) %>%
slice(1:3) %>%
ggparcoord(
columns = 1:4, groupColumn = 5, order = "anyClass",
showPoints = TRUE,
title = "Original",
alphaLines = 1
) +
scale_color_manual(values=c( "#69b3a2", "red", "darkblue") ) +
theme(
plot.title = element_text(size=10)
) +
xlab("")
Create data frame label_data for adding labels
<code>label_data <- cbind(ggplot_build(plot_basic)$data[[1]],
data %>%
arrange(desc(Species)) %>%
group_by(Species) %>% slice(1:3) %>% pivot_longer(-Species))
</code>
<code>label_data <- cbind(ggplot_build(plot_basic)$data[[1]],
data %>%
arrange(desc(Species)) %>%
group_by(Species) %>% slice(1:3) %>% pivot_longer(-Species))
</code>
label_data <- cbind(ggplot_build(plot_basic)$data[[1]],
data %>%
arrange(desc(Species)) %>%
group_by(Species) %>% slice(1:3) %>% pivot_longer(-Species))
Wish below geom_text add labels to plot_basic , but failed . How to fix it ?
<code>plot_basic +
geom_text(data = label_data,aes(x = x,y =y ,label=value))
</code>
<code>plot_basic +
geom_text(data = label_data,aes(x = x,y =y ,label=value))
</code>
plot_basic +
geom_text(data = label_data,aes(x = x,y =y ,label=value))