R - 如何有条件地为data.frame的值着色并绘制一个图形

我使用PerfomanceAnalytics包中的函数table.CalendarReturns创建了此数据框（rownames是月份，并且是年份）：R - 如何有条件地为data.frame的值着色并绘制一个图形

tabRet 

> 
gen feb mar apr mag giu lug ago set ott nov dic System 
2004 0.0 3.5 2.9 2.0 1.1 -0.4 1.2 3.3 0.9 1.8 3.0 -0.6 20.1 
2005 1.6 2.3 -1.2 4.0 0.0 1.6 -1.4 2.4 0.7 2.9 2.9 0.4 17.3 
2006 0.8 2.7 0.3 1.4 6.2 -2.6 2.1 2.8 0.5 0.3 0.7 3.1 19.6 
2007 1.3 0.1 1.4 0.1 1.6 -1.0 1.0 1.5 -0.7 1.0 1.3 -0.7 7.0 
2008 1.4 -1.2 2.2 1.2 -0.3 -0.8 2.2 0.4 1.1 0.1 4.4 -1.3 9.7 
2009 4.8 3.2 1.6 3.5 0.7 1.7 2.1 2.2 2.5 1.9 1.5 2.8 32.4 
2010 3.5 0.5 0.4 1.3 1.8 3.8 3.7 3.0 1.1 1.2 3.9 3.4 31.2  
2011 4.3 2.1 1.6 -0.8 3.9 1.5 4.0 5.4 2.3 2.9 0.2 1.5 33.0 
2012 1.1 1.9 -0.1 2.3 1.0 3.6 1.5 0.7 0.0 1.5 1.2 0.5 16.3 
2013 0.8 2.5 1.2 1.4 0.0 1.7 2.3 1.7 0.5 0.2 1.3 0.6 15.1 
2014 0.1 0.7 0.3 -0.7 1.0 1.0 0.2 0.9 -0.7 2.3 1.4 1.4 8.2 
2015 2.3 1.0 1.1 3.1 4.5 -0.7 -0.3 2.3 2.4 0.4 -1.3 1.0 16.7 
2016 2.1 2.5 0.9 1.0 0.2 NA NA NA NA NA NA NA 7.0

我想为这些数字的颜色创建一个类似这样的情节：ifelse(values< 0,'red','black')。

我尝试了addlot2plot函数，从plotrix软件包中得到了不好的结果。关于这个问题的任何提示？提前谢谢你们。

编辑：我需要这样的事，但在红色的负数：

textplot(Hmisc::format.df(tabRet, na.blank=TRUE, numeric.dollar=FALSE, cdec=rep(1,dim(tabRet)[2])), rmar = 0.8, cmar = 1, max.cex=.9, halign = "center", valign = "center", row.valign="center", wrap.rownames=20, wrap.colnames=10, col.colnames="Darkblue",col.rownames="Darkblue", mar = c(0,0,4,0)+0.1) title(main="Calendar Monthly Returns",col.main="Darkblue", cex.main=1)

PLOT

来源

2016-05-12 Shaolin R

使用ggplot（library：'ggplot2'）。你可以创建一个变量'c <-ifelse（values <0，'a'，'b'）'，然后在ggplot的'color ='中使用该变量。看到这个进一步的理解：http://zevross.com/blog/2014/08/04/beautiful-plotting-in-ra-ggplot2-cheatsheet-3/ –

虽然如果你使用'ggplot'你一定需要将你的月份重塑为长格式，参见'tidyr :: gather'或'reshape2 :: melt'。 – Gregor

这是否允许我绘制该表格？因为绘制该表格我试过： textplot（Hmisc :: format.df（tabRet，na.blank = TRUE，numeric.dollar = FALSE，cdec = rep（1，dim（tabRet）[2]）），rmar = 0.8，cmar = 1，max.cex = .9，halign =“center”，valign =“center”，row.valign =“center”，wrap.rownames = 20， wrap.colnames = 10，col.colnames =“Darkblue”，col.rownames =“Darkblue”，mar = c（0,0,4,0）+0.1） title（main =“Calendar Monthly Returns”，col.main =“Darkblue”，cex.main = 1） –

只需在col.rownames="Darkblue",之后加col.data=ifelse(tabRet<0,'red','black'),即可。

来源

2016-05-12 16:37:50

非常感谢你，那就是我一直在寻找的东西！ –

下面是使用geom_tile{ggplot2}有重复的例子，一个解决方案：

# load libraries 
    library(ggplot2) 
    library(ggthemes) 
    library(data.table) 
    library(PerformanceAnalytics) 

# load data 
    data(managers) 
    df <- as.data.frame(t(table.CalendarReturns(managers[,c(1,7,8)]))) 

# Convert row names into first column 
    df <- setDT(df, keep.rownames = TRUE)[] 
    setnames(df, "rn", "month") 

# reshape your data 
    df2 <- melt(df, id.var = "month") 

# Plot 
ggplot(df2, aes(x=month, y=variable)) + 
     geom_tile(fill= "white", color = "white") + 
     geom_text(aes(label=value, color= value < 0)) + 
     scale_color_manual(guide=FALSE, values=c("red", "black")) + 
     theme_pander() + 
     theme(axis.text = element_text(face = "bold")) + 
     ggtitle("Calendar Monthly Returns")

您也可以选择填充拼贴而不是文本。

ggplot(df2) + 
    geom_tile(aes(x=month , y=variable, fill= value < 0), color = "gray70", alpha = 0.7) + 
    scale_fill_manual(guide=FALSE, values=c("red", "black")) + 
    theme_pander()

在任何情况下，这个答案提供了ggplot有条件的颜色的一般方法。

ggplot(mtcars, aes(wt, mpg)) + 
    geom_point(aes(color= ifelse(mpg > 20, "A", "B"))) + 
    scale_color_manual(guide=FALSE, values=c("red", "black"))

你也可以做到这一点使用base：

plot(mtcars$wt, mtcars$mpg, 
    col=ifelse(mtcars$mpg > 20 ,"red", "black"))

来源

2016-05-12 16:19:53

不完全，我编辑了我的原始答案与更多细节。 –

如果这是你在找什么：

require(tidyr) 
require(ggplot2) 
d<-data.table(gen=seq(2004,2016,1),Jan=round(rnorm(13)),Feb=round(rnorm(13)),Mar=round(rnorm(13))) 
gd<-gather(d,key=gen) 
gd$col<-ifelse(gd$value<0.5,"1","0") 
ggplot(data=gd,aes(x=gen,y=value,color=col))+geom_tile(aes(fill=col))+ 
    scale_fill_manual(values=c("red","black"))

来源

2016-05-12 16:23:25

不完全，我编辑了我的原始答案与更多细节。 –

R - 如何有条件地为data.frame的值着色并绘制一个图形

回答

相关问题