使用 echarts4r 测量颜色
Gauge colors using echarts4r
根据我找到的示例 here 我认为下面的代码会生成具有三个颜色范围的仪表:
0 < x <= 1.5: green
1.5 < x <= 3: yellow
x > 3: red
这是我拥有的:
library(echarts4r)
library(magrittr)
CA_gauge <- e_charts() %>%
e_gauge(4.1,
"INCIDENCE",
min=0,
max=20,
axisLine = list(
linestyle = list(
color=list(
c(1.5, "green"),
c(3, "yellow"),
c(20, "red")
)
))) %>%
e_title("CA")
print(CA_gauge)
但它产生的是
我怀疑我遗漏了一些基本的东西...
谢谢!
有两点需要调整。 linestyle
需要一个大 S - lineStyle
- 并且 breacks 必须是百分比。
此外,您可以添加 splitNumber
来调整中断并使 te gauge 更具可读性。
# breaks in percentage
1.5 / 20 = 0.075
3 / 20 = 0.15
20 / 20 = 1
CA_gauge <- e_charts() %>%
e_gauge(4.1,
"INCIDENCE",
min=0,
max=20,
splitNumber = 20,
axisLine = list(
lineStyle = list(
color=list(
c(0.075, "green"),
c(.15, "yellow"),
c(1, "red")
)
))) %>%
e_title("CA")
print(CA_gauge)
根据我找到的示例 here 我认为下面的代码会生成具有三个颜色范围的仪表:
0 < x <= 1.5: green
1.5 < x <= 3: yellow
x > 3: red
这是我拥有的:
library(echarts4r)
library(magrittr)
CA_gauge <- e_charts() %>%
e_gauge(4.1,
"INCIDENCE",
min=0,
max=20,
axisLine = list(
linestyle = list(
color=list(
c(1.5, "green"),
c(3, "yellow"),
c(20, "red")
)
))) %>%
e_title("CA")
print(CA_gauge)
但它产生的是
我怀疑我遗漏了一些基本的东西...
谢谢!
有两点需要调整。 linestyle
需要一个大 S - lineStyle
- 并且 breacks 必须是百分比。
此外,您可以添加 splitNumber
来调整中断并使 te gauge 更具可读性。
# breaks in percentage
1.5 / 20 = 0.075
3 / 20 = 0.15
20 / 20 = 1
CA_gauge <- e_charts() %>%
e_gauge(4.1,
"INCIDENCE",
min=0,
max=20,
splitNumber = 20,
axisLine = list(
lineStyle = list(
color=list(
c(0.075, "green"),
c(.15, "yellow"),
c(1, "red")
)
))) %>%
e_title("CA")
print(CA_gauge)