如何在ggvis图中添加一个vega轴的规格？

在这篇文章中，我们将学习如何在R编程语言中为ggvis图添加一个vega轴规范。

ggvis包

数据的可视化是通过R的ggvis工具完成的。它被用来创建可视化的交互式图形，用于数据的绘制和表示。该软件包可以通过以下命令安装到工作空间中。

install.packages("ggvis")

要启动ggvis图形窗口，使用ggvis包中的ggvis()方法。ggvis方法的语法如下。

语法： ggvis( data , mp1, mp2.,)

参数:

data - 要绘制的数据集。

mp1, mp2,… – 要绘制的地图变量。

织女星轴规格

ggvis绘图的vega轴规格可以用add_axis方法添加。添加轴的方法可以用来修改绘图值的默认值。add_axis方法的语法如下:

语法: add_axis( vis, type, scale = NULL, orient = NULL, title = NULL, ticks = NULL)

参数:

• vis – 一个ggvis对象
• type – 指定分别采取 “x “轴还是 “y “轴
• orient - 指定轴的方向。
• title – 指定轴的标题
• ticks – 标点的数量

注意： 轴的方向也可以作为参数指定给R中的add_axis方法。

绘制图表

首先，data.frame()方法被用来生成一个数据框。数据框的数据点被创建。使用管道操作符，ggvis程序被应用到数据框中，并使用ggvis绘制图形。

# Import ggvis package
library("ggvis")
  
# Declaring a data frame
data_frame <- data.frame(col1 = c(1:5),
              col2 = c(20,32,12,57,33))
  
# Printing the data frame
print("Data Frame")
print(data_frame)
  
# Plotting data on the ggvis plot
# adding x and y axes respectively 
data_frame %>% ggvis(x = ~col1, y = ~col2) %>%
  layer_points() %>%
  add_axis("x", title = "Roll Number", orient = "top") %>%
  add_axis("y", title = "Marks", orient = "left")

输出

[1] "Data Frame" 
col1 col2 
1    1   20 
2    2   32 
3    3   12 
4    4   57 
5    5   33

如下面代码的输出所示，可以将刻度线分配给创建分层的轴。

# Importing ggvis package
library("ggvis")
  
# Declaring a data frame
data_frame <- data.frame(col1 = c(1:5),
             col2 = c(20,32,12,57,33))
  
# Printing the data frame
print("Data Frame")
print(data_frame)
  
# Plotting data on the ggvis plot
# adding x and y axes respectively 
data_frame %>% ggvis(x = ~col1, y = ~col2) %>%
  layer_lines() %>%
  add_axis("x", title = "Roll Number",
           orient = "top", ticks = 20) %>%
  add_axis("y", title = "Marks",
           orient = "left", ticks = 40)

输出

[1] "Data Frame" 
col1 col2 
1    1   20 
2    2   32 
3    3   12 
4    4   57 
5    5   33