撥號位置量表圖Plotly R

這個問題似乎已經以某種方式被問了幾次，但我似乎無法找到正確的答案。我正試圖在plotly量表上移動中心轉盤。我正在使用已提供的演示版本（https://plot.ly/r/gauge-charts/），並且我也在使用此文章的指導（How to rotate the dial in a gauge chart? Using python plotly） - 雖然它是python而不是r。撥號位置量表圖Plotly R

我對SVG絕對沒有任何經驗，因爲我敢肯定你可以說。任何幫助將不勝感激。

h = 0.24 
k = 0.5 
r = 0.15 

my_raw_value = 100 
theta = my_raw_value * 180/300 
theta = theta * pi/180 
x = h + r*cos(theta) 
y = k + r*sin(theta) 
path = paste0('M 0.235 0.5 L ' ,str(x) , '', str(y),' L 0.245 0.5 Z') 

base_plot <- plot_ly(
    type = "pie", 
    values = c(40, 10, 10, 10, 10, 10, 10), 
    labels = c("-", "0", "20", "40", "60", "80", "100"), 
    rotation = 108, 
    direction = "clockwise", 
    hole = 0.4, 
    textinfo = "label", 
    textposition = "outside", 
    hoverinfo = "none", 
    domain = list(x = c(0, 0.48), y = c(0, 1)), 
    marker = list(colors = c('rgb(255, 255, 255)', 'rgb(255, 255, 255)', 'rgb(255, 255, 255)', 'rgb(255, 255, 255)', 'rgb(255, 255, 255)', 'rgb(255, 255, 255)', 'rgb(255, 255, 255)')), 
    showlegend = FALSE 
) 

base_plot <- add_trace(
    base_plot, 
    type = "pie", 
    values = c(50, 10, 10, 10, 10, 10), 
    labels = c("Error Log Level Meter", "Debug", "Info", "Warn", "Error", "Fatal"), 
    rotation = 90, 
    direction = "clockwise", 
    hole = 0.3, 
    textinfo = "label", 
    textposition = "inside", 
    hoverinfo = "none", 
    domain = list(x = c(0, 0.48), y = c(0, 1)), 
    marker = list(colors = c('rgb(255, 255, 255)', 'rgb(232,226,202)', 'rgb(226,210,172)', 'rgb(223,189,139)', 'rgb(223,162,103)', 'rgb(226,126,64)')), 
    showlegend= FALSE 
) 

a <- list(
    showticklabels = FALSE, 
    autotick = FALSE, 
    showgrid = FALSE, 
    zeroline = FALSE) 

b <- list(
    xref = 'paper', 
    yref = 'paper', 
    x = 0.23, 
    y = 0.45, 
    showarrow = FALSE, 
    text = '50') 

base_chart <- layout(
    base_plot, 
    shapes = list(
    list(
     type = 'path', 
     path = path, 
     xref = 'paper', 
     yref = 'paper', 
     fillcolor = 'rgba(44, 160, 101, 0.5)' 
    ) 
), 
    xaxis = a, 
    yaxis = a, 
    annotations = b 
)

爲什麼這個路徑不起作用？我希望這不是一個明顯的答案，我可以忽略。

來源

2017-10-20 kostr

path字符串的定義有錯誤。
這裏是正確的sintax：

path = paste('M 0.235 0.5 L' , x, y, 'L 0.245 0.5 Z')

來源

2017-10-25 18:49:22

撥號位置量表圖Plotly R

回答

相關問題