मैं प्लॉटली का उपयोग करके प्लॉट खींचने की कोशिश कर रहा हूं जहां वे सभी एक ही धुरी साझा करते हैं। यह एक डेटासेट है
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)'))
और यह अन्य डेटासेट है
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)'))
मैं चाहता हूं कि ये दो ग्राफ एक ही धुरी को रंगों को छोड़कर साझा करें।
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-अक्ष शीर्षक और किंवदंतियाँ अच्छी नहीं हैं:
तो, उन्हें संशोधित करें:
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)
0
Stéphane Laurent
23 नवम्बर 2018, 07:23