[R] gemo_text issue

[Ben Tupper]

Hi,

I had to include 

library(reshape2) 

to get things working as you use melt(). Explicitly setting the x and y values in geom_text() is needed since you are providing new data.

zp1 <- zp1 + geom_text(data=test2, x=test2$con, y=test2$Prob, label = test2$Project, size = 6, color = "white")


Cheers,
Ben

> On Nov 27, 2018, at 3:04 PM, Reith, William [USA] <reith_william using bah.com> wrote:
> 
> I am experiencing issues with trying to label points added to a ggplot via geom_point. I think an underlying issue is the fact that I already used ggplot function to create a 5x5 risk matrix "background", but I am not certain. I have tried multiple solutions online but cannot find one that has a similar the background plotting I am attempting.
> 
> I have attached the .R file and a picture of what I am creating minus the buggy text labels. Code is also pasted below.
> 
> Thanks,
> 
> William
> 
> 
> library(ggplot2)
> 
> Project<-c("C","C","C","C","C","B","B","B","D","E","E","F","F","F","F")
> Prob<-c(3,3,3,2,2,2,2,2,3,4,3,5,4,3,3)
> con<-c(3.675941831,2.354582402,2.354582402,2.354582402,1.95075378,3.0602443,3.0602443,3.283695274,1.904452395,3.579022044,3.579022044,2.58190428,1.76065948,2.365243619,1.354491286)
> test2<-data.frame(Project,Prob,con)
> 
> ### build risk coloring matrix ###
> myData <- matrix(c(1,2,3,3,3,1,2,2,3,3,1,1,2,2,3,1,1,2,2,2,1,1,1,1,2), nrow = 5, ncol = 5, byrow = TRUE)
> rownames(myData) <- c("5", "4", "3", "2","1")
> colnames(myData) <- c("1", "2", "3", "4","5")
> 
> ### convert to data frame ###
> longData <- melt(myData)
> colnames(longData) <- c("Probability", "Consequence", "value")
> longData$value<-as.factor(longData$value)
> 
> ### define color tiles ###
> color<-c("green" ,"green" ,"green","green"  ,"green",
>        "yellow","yellow","green","green"  ,"green",
>        "red"   ,"yellow","yellow","yellow","green",
>        "red"   ,"red"   ,"yellow","yellow","green",
>        "red"   ,"red"   ,"red"   ,"yellow","yellow")
> 
> ### create color background 5x5 ###
> zp1 <- ggplot(longData,aes(x = Consequence, y = Probability)) #, fill = value))
> zp1 <- zp1 + geom_tile(fill = color)
> zp1 <- zp1 + scale_x_continuous(breaks = 0:6, expand = c(0, 0))
> zp1 <- zp1 + scale_y_continuous(breaks = 0:6, expand = c(0, 0))
> zp1 <- zp1 + coord_fixed()
> zp1 <- zp1 + theme_bw()
> print(zp1)
> 
> ### Add title and lines ###
> zp1 <- zp1 + ggtitle("5x5 Plot")+theme(plot.title = element_text(hjust = 0.5))
> zp1 <- zp1 + geom_vline(xintercept=c(1.5:5.5))
> zp1 <- zp1 + geom_hline(yintercept=c(1.5:5.5))
> print(zp1)
> 
> ### Plot points ###
> zp1 <- zp1 + geom_point(data=test2, x=test2$con, y=test2$Prob, alpha = 1, size = 9, color = "blue")
> print(zp1)
> 
> ### This is the line I cannot get working; tried multiple approaches ###
> ### intent is to add white labels to plotted points ###
> zp1 <- zp1 + geom_text(data=test2, label = test2$Project, size = 6, color = "white")
> print(zp1)
> <test.png>______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

Ben Tupper
Bigelow Laboratory for Ocean Sciences
60 Bigelow Drive, P.O. Box 380
East Boothbay, Maine 04544
http://www.bigelow.org

Ecological Forecasting: https://eco.bigelow.org/






	[[alternative HTML version deleted]]