ggplot2를 사용하여 막대 글 머리 기호가있는 막대 그래프를 만듭니다.

debugcn 에 게시 Dev

Jérémz

ggplot2를 사용하여 데이터 집합 (Y의 $ proteinN 및 X의 $ 메서드)에서 SDM을 사용하여 막대 그래프를 만들고 범례의 다른 데이터 집합 ($ 특정)에 표시기가있는 동일한 막대 그래프에 포함하고 싶습니다 (겹침) 글 머리 기호 막대 차트 모양으로. 이와 약간 비슷합니다 (그러나 첫 번째 데이터 세트의 경우 세로 막대와 SDM)

_{(출처 : yaksis.com )}

내 코드와 데이터는 다음과 같습니다.

    library(ggplot2) 
    data <- textConnection("proteinN, supp, method, specific
    293, protnumb, insol, 46
    259, protnumb, insol, 46
    274, protnumb, insol, 46
    359, protnumb, fasp, 49
    373, protnumb, fasp, 49
    388, protnumb, fasp, 49
    373, protnumb, efasp, 62
    384, protnumb, efasp, 62
    382, protnumb, efasp, 62
    ")

    data <- read.csv(data, h=T)

# create functions to get the lower and upper bounds of the error bars
stderr <- function(x){sqrt(var(x,na.rm=TRUE)/length(na.omit(x)))}
lowsd <- function(x){return(mean(x)-stderr(x))}
highsd <- function(x){return(mean(x)+stderr(x))}

cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", 
               "#F0E442", "#0072B2", "#D55E00", "#CC79A7")

# create a ggplot
ggplot(data=data,aes(x=method, y=proteinN, fill=method))+
  #Change _hue by _manualand remove c=45, l=80 if not desire#
  scale_fill_manual(values=cbPalette)+
  scale_fill_hue(c=45, l=80)+

  # first layer is barplot with means
  stat_summary(fun.y=mean, geom="bar", position="dodge", colour='black')+
  # second layer overlays the error bars using the functions defined above
  stat_summary(fun.y=mean, fun.ymin=lowsd, fun.ymax=highsd, 
              geom="errorbar", position="dodge",color = 'black', size=.5)

몇 가지 시도했지만 아무것도 작동하지 않으며 두 번째 데이터 세트를 추가하려고 할 때 항상 다음 오류 출력이 나타납니다.

Error : Mapping a variable to y and also using stat="bin". With stat="bin", it will attempt to set the y value to the count of cases in each group. This can result in unexpected behavior and will not be allowed in a future version of ggplot2. If you want y to represent counts of cases, use stat="bin" and don't map a variable to y. If you want y to represent values in the data, use stat="identity". See ?geom_bar for examples. (Defunct; last used in version 0.9.2)

Here is my try:

# create functions to get the lower and upper bounds of the error bars
stderr <- function(x){sqrt(var(x,na.rm=TRUE)/length(na.omit(x)))}
lowsd <- function(x){return(mean(x)-stderr(x))}
highsd <- function(x){return(mean(x)+stderr(x))}

cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", 
               "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
# create a ggplot
ggplot(data=data,aes(x=method, y=proteinN, fill=method, witdh=1))+
  #Change _hue by _manualand remove c=45, l=80 if not desire#
  scale_fill_manual(values=cbPalette)+
  scale_fill_hue(c=45, l=80)+

  #Second set of data#
  geom_bar(aes(x=method, y=specific, fill="light green"), width=.4) +

  # first layer is barplot with means
  stat_summary(fun.y=mean, geom="bar", position="dodge", colour='black')+

  # second layer overlays the error bars using the functions defined above
  stat_summary(fun.y=mean, fun.ymin=lowsd, fun.ymax=highsd, 
      geom="errorbar", position="dodge",color = 'black', size=.5)

joran

Maybe try something like this?

ggplot(data=data,aes(x=method, y=proteinN, fill=method, width=1))+
  scale_fill_hue(c=45, l=80) +
  stat_summary(fun.y=mean, geom="bar", position="dodge", colour='black')+
  stat_summary(fun.y=mean, fun.ymin=lowsd, fun.ymax=highsd, 
               geom="errorbar", position="dodge",color = 'black', size=.5) + 
  geom_bar(data = unique(data[,c('method','specific')]),
           aes(x = method,y = specific),
           stat = "identity",
           fill = "light green",
           width = 0.5)

A couple of notes.

You misspelled "width".

Your two scale_fill lines are pointless. ggplot will only take one fill scale, whichever one appears last. You can't "modify" the fill scale like that. You ought to have received a warning about it that explicitly said:

Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the existing scale.

The error message you got said:

Mapping a variable to y and also using stat="bin"

i.e. you specified y = proteinN while also using stat = "bin" in geom_bar (the default). It went on to explain:

With stat="bin", it will attempt to set the y value to the count of cases in each group.

i.e. rather than plot the values in y, it will try to count the number of instances of, say, insol, and plot that. (Three, in this case.) A cursory examination of the examples in ?geom_bar immediately reveals that most of the examples only specify an x variable. Until you get to this example in the help:

# When the data contains y values in a column, use stat="identity"
library(plyr)
# Calculate the mean mpg for each level of cyl
mm <- ddply(mtcars, "cyl", summarise, mmpg = mean(mpg))
ggplot(mm, aes(x = factor(cyl), y = mmpg)) + geom_bar(stat = "identity")

where it demonstrates that when you specify the precise y values you want, you have to also say stat = "identity". Conveniently, the error message also said this:

If you want y to represent values in the data, use stat="identity".

The final piece was knowing that since the overlaid bars only have one value per x value, we should really collapse that piece down to the minimum information needed via:

unique(data[,c('method','specific')]

or just split it off into it's own data frame ahead of time.

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-06-1

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사