label_data1 <- data.frame(Gráfica_1_Tabla_1)
id <- seq(1:43)
label_data1$id <- id
number_of_bar <- nrow(label_data1)
# -----------------------------------------------------------

angulo <- 90 - 360 * (label_data1$id - 0.5) / number_of_bar
label_data1$hjust <- ifelse(angulo < -90, 1.1, -0.1)
label_data1$angulo <- ifelse(angulo < -90, angulo + 180, angulo)

# ---------------------------------------------------
grafica1 <- ggplot(Gráfica_1_Tabla_1, aes(x = as.factor(label_data1$id),
  y = label_data1$Recursos.actuales, fill = label_data1$Tipo.de.repositorio)) +

  geom_bar(stat = "identity", alpha = 0.5) +
  ylim(-600, 578) +
  theme_minimal() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank(),
    plot.margin = unit(rep(-1, 4), "cm")
  ) +
  coord_polar(start = 0) +
  geom_text(data = label_data1, aes(x = label_data1$id, y = label_data1$Recursos.actuales,
                                   label = label_data1$concat, hjust=hjust), color="black",
            fontface="bold",alpha=1.0, size=2.5,angle = label_data1$angulo,
            inherit.aes = FALSE)

grafica1