0
grafico <- read.csv("Pasta1.csv", header = F, sep = ";")

library(ggplot2)

Experimental <- ggplot(grafico)+
  geom_line(size=1.2, aes(x=V1, y=V2))+
  scale_fill_manual(values = c("Experimental" = "green", "nulo" = "null"))

angulo30 <- Experimental+
  geom_line(size=1, col="blue", aes(x=V3, y=V4))

angulo36 <- plot30+
  geom_line(size=1, col="red", aes(x=V5, y=V6))

angulo42 <- plot36+
  geom_line(size=1, col="green", aes(x=V7, y=V8)) +
  labs(x="Displacement (mm)", y="Load (kN)")+
  theme_bw(base_size = 12)+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())+
  theme(axis.text.x = element_text(color = "black", size = 12), axis.text.y = element_text(color = "black", size = 12))

angulo42

inserir a descrição da imagem aqui

4
  • 3
    Bem-vindo ao StackOverflow em Português! Infelizmente, esta pergunta não pode ser reproduzida por quem for tentar respondê-la. Por favor, dê uma olhada neste link (principalmente no uso da função dput) e veja como fazer uma pergunta reproduzível em R. Assim, as pessoas que desejarem te ajudar conseguirão fazer isto da melhor maneira possível. 5/12/2020 às 16:29
  • 1
    Olá Paulo. Você precisa colocar color dentro de aes. Veja estas postagens: pt.stackoverflow.com/questions/41503/… e pt.stackoverflow.com/questions/363454/… 7/12/2020 às 18:30
  • Obrigado, @CarlosEduardoLagosta! Consegui! 9/12/2020 às 18:05
  • Fico feliz. Se foram as outras postagens que te ajudaram a resolver, recomendo excluir sua pergunta, para não haver duplicação dentro do SO. 9/12/2020 às 21:34

0

Pesquise outras perguntas com a tag .