मैं प्लॉटली का उपयोग करके प्लॉट खींचने की कोशिश कर रहा हूं जहां वे सभी एक ही धुरी साझा करते हैं। यह एक डेटासेट है

  X variable       value
1 1       SH 0.002814895
2 1       VH 0.002591173
3 1       SS 0.002599700
4 1      HCG 0.002810790

और यह इसका प्लॉटली ग्राफ है

plot_ly(rr1, x=~variable, y=~value, type = 'scatter', marker=list(size=10, color='rgba(255,182,193,0.9)', 
    line=list(color='rgba(152,0,0,0.8)', width = 2)), name = "Character and Degree")%>%
 layout(title = "Graph", font = list(family = "Arial Black"),yaxis=list(zerolinecolor = toRGB("red"),
                                                                     gridcolor = "rgb(190,190,190)"), xaxis=list(gridcolor = "rgb(190,190,190)")) %>% 
 layout(plot_bgcolor='rgb(230, 230, 230)',paper_bgcolor='rgb(220, 220, 220)',
     font = list(color = 'rgb(100,100,100)'))

enter image description here

और यह अन्य डेटासेट है

   X variable       value
 1 1       SH 0.000982607
 2 1       VH 0.000917569
 3 1       SS 0.000911039
 4 1      HCG 0.000971009

और यह है इसकी साजिश

     plot_ly(rr2, x=~variable, y=~value, type = 'scatter', marker=list(size=10, color='rgba(38,182,193,0.9)', 

     line=list(color='rgba(75,0,0,0.8)', width = 2)), name = "Character and Degree")%>%
  layout(title = "Graph", font = list(family = "Arial Black"),yaxis=list(zerolinecolor = toRGB("red"),
                                                                     gridcolor = "rgb(190,190,190)"), xaxis=list(gridcolor = "rgb(190,190,190)")) %>% 
   layout(plot_bgcolor='rgb(230, 230, 230)',paper_bgcolor='rgb(220, 220, 220)',
     font = list(color = 'rgb(100,100,100)'))

enter image description here

मैं चाहता हूं कि ये दो ग्राफ एक ही धुरी को रंगों को छोड़कर साझा करें।

1
user8076566 23 नवम्बर 2018, 08:50

1 उत्तर

सबसे बढ़िया उत्तर

आप दो डेटाफ़्रेम को मर्ज कर सकते हैं और दो add_markers का उपयोग कर सकते हैं, प्रत्येक मान कॉलम के लिए एक:

df1 <- read.table(text="X variable       value
1 1       SH 0.002814895
2 1       VH 0.002591173
3 1       SS 0.002599700
4 1      HCG 0.002810790", header=TRUE)

df2 <- read.table(text="   X variable       value
 1 1       SH 0.000982607
 2 1       VH 0.000917569
 3 1       SS 0.000911039
 4 1      HCG 0.000971009", header=TRUE)

df12 <- merge(df1, df2, by=c("X","variable"))

library(plotly)

plot_ly(df12, x=~variable) %>% 
  add_markers(y=~value.x, type = 'scatter') %>%
  add_markers(y=~value.y, type = 'scatter')

लेकिन y-अक्ष शीर्षक और किंवदंतियाँ अच्छी नहीं हैं:

enter image description here

तो, उन्हें संशोधित करें:

ax <- list(
  title = "Value",
  titlefont = list(
    family = "Arial, sans-serif",
    size = 18,
    color = "Red"
  ),
  showticklabels = TRUE
)

plot_ly(df12, x=~variable) %>% 
  add_markers(y=~value.x, type = 'scatter', name="value1") %>%
  add_markers(y=~value.y, type = 'scatter', name="value2") %>% 
  layout(yaxis=ax)

enter image description here

0
Stéphane Laurent 23 नवम्बर 2018, 07:23