Commit 5314eada authored by Pablo Cremades's avatar Pablo Cremades

Agrego la leyenda al gŕafico

parent 33aa74aa
This diff is collapsed.
Quercetina/Plot.png

39.1 KB | W: | H:

Quercetina/Plot.png

27 KB | W: | H:

Quercetina/Plot.png
Quercetina/Plot.png
Quercetina/Plot.png
Quercetina/Plot.png
  • 2-up
  • Swipe
  • Onion skin
setwd("/home/pablo/Documents/WheeStat6-Mza/Quercetina")
setwd("/home/pablo/Documentos/WheeStat6-Mza/Quercetina")
library(ggplot2)
#Factores para escalar los datos.
......@@ -16,11 +16,11 @@ datos_wheestat$V <- (datos_wheestat$V - OrigV)*ResV
datos_wheestat$I <- (OrigI - datos_wheestat$I)*ResI
#Graficamos
plotIvsV <- ggplot() + geom_point(data=datos_wheestat, aes(x=datos_wheestat$V, datos_wheestat$I), colour='blue', size=3) +
plotIvsV <- ggplot() + geom_point(data=datos_wheestat, aes(x=datos_wheestat$V, datos_wheestat$I, colour='WheeStat') , size=3) +
geom_line() +
scale_x_continuous(breaks = seq(from = min(datos_comercial$V)-5, to = max(datos_comercial$V), by = 100)) +
xlab("V [mV]") +
ylab("I [uA]")
plotIvsV <- plotIvsV + geom_point(data = datos_comercial, aes(x=datos_comercial$V, y=datos_comercial$I), colour='black', size=3) +
plotIvsV <- plotIvsV + geom_point(data = datos_comercial, aes(x=datos_comercial$V, y=datos_comercial$I, colour='Comercial'), size=3) +
scale_color_manual("Quercetina", values = c("WheeStat"="blue", "Comercial"="black"))
\ No newline at end of file
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment