R语言 如何在Ggvis中的图表下方添加水平离散图例

在这篇文章中，我们将看到如何在R编程语言中的ggvis中的图表下面添加水平离散图例。

在Ggvis中的图表下方添加水平离散图例

R语言中的ggvis包用于数据可视化。它也被用来创建交互式网络图形。它也被用来创建交互式图表和图。它是ggplot包的一个补充。它提供了在工作空间建立HTML图形的框架。该软件包可以通过以下命令下载并安装到工作空间中。

install.packages("ggvis")

一个数据框架可以用data.frame方法创建，该方法将一些列和存储在其中的值作为输入。这个数据可以用ggvis方法进行可视化处理，该方法可以计算出数据框架中包含的y轴和x轴数据的可视化表示。ggvis方法的语法如下。

语法： ggvis(~y,~x,stroke)

参数 。

• ~y,~x- 数据框的y轴和x轴
• stroke–不同的颜色值，用于在ggvis中绘制不同的线条。

gvisLineChart用于用R绘制Google线图。在绘制数据时，会打开一个绘制数据的窗口。

语法： gvisLineChart(data, options = list())

参数 :

• data – 要绘制的数据框
• options – 数据的规格

# installing the required libraries
library(googleVis)
library(tidyverse)
 
# creating a data frame
data_frame = data.frame(group = c("Geekster","GeeksforGeeks",
                                  "Geekster","Geekster",
                                  "GeeksforGeeks","GeeksforGeeks",
                                  "Geekster","GeeksforGeeks",
                                      "Geekster","Geekster"),
                        people = c(10,12,21,45,23,54,
                                   22,12,32,45),
                        rating = c(4,3,5,7,2,8,1,
                                   10,9,6))
# printing the data frame
print("Original Data frame")
print(data_frame)
 
# creating a line chart for the data
graph <- gvisLineChart(data_frame, options=list(
  legend="bottom"))
 
# plotting the data
plot(graph)

输出

[1] "Original Data frame"
> print(data_frame)
           group people rating
1       Geekster     10      4
2  GeeksforGeeks     12      3
3       Geekster     21      5
4       Geekster     45      7
5  GeeksforGeeks     23      2
6  GeeksforGeeks     54      8
7       Geekster     22      1
8  GeeksforGeeks     12     10
9       Geekster     32      9
10      Geekster     45      6

数据的绘制也可以考虑到函数的因素。例如，可以分别为x和x^2画线。

# installing the required libraries
library(googleVis)
library(tidyverse)
 
# creating a data frame
data_frame = data.frame(x = c(1,2,3,4,5),
                        y = x^2
                        )
# printing the data frame
print("Original Data frame")
print(data_frame)
 
# creating a line chart for the data
graph <- gvisLineChart(data_frame, options=list(
  legend="bottom"))
# plotting the data
plot(graph)

输出

[1] "Original Data frame"
> print(data_frame)
  x  y
1 1  1
2 2  4
3 3  9
4 4 16
5 5 25