Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/postgresql/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何使用已存在的计数生成直方图?_R_Postgresql_Count_Bar Chart - Fatal编程技术网

R 如何使用已存在的计数生成直方图?

R 如何使用已存在的计数生成直方图?,r,postgresql,count,bar-chart,R,Postgresql,Count,Bar Chart,这可能是一个非常简单的问题,但我已经在谷歌上搜索和试验了几个小时,只是找不到答案。这个问题与at的问题不同,因为这是关于调整仓位大小,而不是使用预先计算的计数 我正在将数据从PostgreSQL表拉入R: mystuff您可以使用以下方法非常轻松地绘图。例如,检查这些 > x <- data.frame(foo = letters[1:5],count = runif(5,1,10)) > > x foo count 1 a 8.788269 2 b

这可能是一个非常简单的问题,但我已经在谷歌上搜索和试验了几个小时,只是找不到答案。这个问题与at的问题不同,因为这是关于调整仓位大小,而不是使用预先计算的计数

我正在将数据从PostgreSQL表拉入R:


mystuff您可以使用以下方法非常轻松地绘图。例如,检查这些

> x <- data.frame(foo = letters[1:5],count = runif(5,1,10))
> 
> x
  foo    count
1   a 8.788269
2   b 3.832541
3   c 1.964557
4   d 9.505890
5   e 2.924173


 barplot(height = x$count,names.arg = x$foo,)

您可以使用以下方法非常轻松地进行绘图。例如,检查这些

> x <- data.frame(foo = letters[1:5],count = runif(5,1,10))
> 
> x
  foo    count
1   a 8.788269
2   b 3.832541
3   c 1.964557
4   d 9.505890
5   e 2.924173


 barplot(height = x$count,names.arg = x$foo,)

require(ggplot2)
d
require(ggplot2)

d可能复制的可能复制的酷!非常感谢你!是的,现在你告诉我这很容易,但我在任何地方都找不到这些信息。还要感谢Gaurav,但这个答案更简单。酷!非常感谢你!是的,现在你告诉我这很容易,但我在任何地方都找不到这些信息。还要感谢Gaurav,但这个答案更简单。
mystuff<-sqldf("select foo, 1 as count from mytable;")
mystuff$foo<-as.factor(mystuff$foo)
with(mystuff, Barplot(letter, xlab="foo", ylab="Frequency"))
> x <- data.frame(foo = letters[1:5],count = runif(5,1,10))
> 
> x
  foo    count
1   a 8.788269
2   b 3.832541
3   c 1.964557
4   d 9.505890
5   e 2.924173


 barplot(height = x$count,names.arg = x$foo,)
library(ggplot2)
ggplot(x,aes(foo,count))+geom_bar(stat="identity")
require(ggplot2)

d <- data.frame(foo = as.factor(seq(1:50)),count = abs(round(rnorm(50)*10)))
ggplot(data=d,aes(x=foo,y=count))+geom_bar(stat="identity")