Hoas `
###------------------------------------read water stress level data,rename,rearrange,and merge
data=read_xlsx("sdg6.4.2_level of water stress.xlsx",sheet="Sheet2")
forRegion=read.csv("regioncodes02.csv")
colnames(data)[1]="country"
colnames(forRegion)[7]="country"
colnames(forRegion)[4]="Region"
colnames(forRegion)[5]="SubRegion"
forRegion=subset(forRegion,select = -c(1,2,6))
data=merge(forRegion,data,by="country")
###------------------------------------plotting
p <- plot_ly(
type = 'scatterpolargl',
mode = 'markers'
)
p <- add_trace(
p,
r = data$Region,
theta = data$Value,
name = paste(data$country),
marker = list(
size = 15,
line = list(
color = '#FFF'
),
opacity = 0.7
)
)
p <- layout(
p,
title = "Water Stress Level",
showlegend = F,
paper_bgcolor = "rgb(223, 223, 223)",
polar = list(
bgcolor = "rgb(223, 223, 223)",
angularaxis = list(
tickwidth = 10,
linewidth = 3,
layer = 'below traces',
type="log"
),
radialaxis = list(
side = 'counterclockwise',
showline = T,
linewidth = 2,
tickwidth = 2,
gridcolor = '#FFF',
gridwidth = 2
)
)
)
p`
你好这是我的代码。你说的在网页中用<iframe>围着具体该怎么做呢?