小编hrb*_*str的帖子

我使用R在图表中绘制了两个点,并用箭头连接点.如何在箭头上添加文本.(固定文本)我的代码如下:

x<-y<-1
new.x<-2
new.y<-2  
Text<-"Direction"
plot(x, y, xaxt='n',yaxt='n',cex=10,pch=19,xlim=c(0,4), ylim=c(0,3))
points(new.x,new.y,cex=10,pch=19)
arrows(x, y, new.x, new.y, col = "orange",lwd=4,lty=4)

在箭头上我想在箭头上添加一个Text对象("Direction").

图像如下:

我有一个 Excel 文件，当我想打开它时，会出现以下警告消息：

您尝试打开的文件“name.ext”的格式与文件扩展名指定的格式不同。打开文件之前，请验证文件是否未损坏且来源可靠。您想现在打开该文件吗？

当我单击“是”打开它时，一切都很好。但是，我想在 R 中读取此文件，尽管有警告，但无法管理 R 加载内容。我怎样才能实现这个目标？

我想用 R 打开的文件示例可以在此处下载。我使用微软 Office 2016。

我试图通过我的绘图数据添加一行geom_smooth,但我遇到了困难.

这是我的代码:

plot.BG = ggplot(data) + geom_point(aes(x=Mass_LT, y=BG, colour=factor(Temp.f)))   
plot.BG + geom_smooth(method="lm")

BG
#[1]  79.56304 118.63903  84.03655  95.02984  67.90585  81.39920  74.73497  95.50199
#[9]  94.51260  88.08051 110.78937  96.89154  73.96888  74.04067  70.19670  69.80033
#[17]  64.49329  76.58780  98.73740 107.75642  71.05849  98.45971 101.67881 109.35420
#[25]  79.32484  69.71360  85.94306 101.25704  87.85497 119.07206  85.72013  98.91010
#[33]  95.27523  84.89955  93.42660 112.82913 121.77451  84.56991  67.66107 102.73335

Mass_LT
#[1] 0.000 6.154 0.000 2.128 3.169 5.986 1.916 0.000 5.956 0.566 0.000 0.000 0.530 4.813
#[15] 2.943 2.645 0.605 …

我使用ggplot2库创建了一个饼图，如下所示：

ggplot(dat,
       aes(x = factor(""), fill = workers) ) +
       geom_bar() +
       coord_polar(theta = "y") +
       scale_x_discrete("")

问题是数字 ( count) 显示为2e+05。我怎样才能将它们显示为20000？

更新：

dat <- data.frame(workers=c("Q8","A2","S1","A2","A2","S1"))

我是网络抓取的新手，我想获取此网页的数据：http : //www.neotroptree.info/data/countrysearch

在此链接中，我们看到四个字段（国家、域、州和站点）。

我有一个包含站点名称的数据框，我使用以下代码对其进行了抓取：

ipak <- function(pkg){
  new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
  if (length(new.pkg))
    install.packages(new.pkg, dependencies = TRUE)
  sapply(pkg, require, character.only = TRUE)
}

ipak(c("rgdal", "tidyverse"))
#> Loading required package: rgdal
#> Loading required package: sp
#> rgdal: version: 1.3-4, (SVN revision 766)
#>  Geospatial Data Abstraction Library extensions to R successfully loaded
#>  Loaded GDAL runtime: GDAL 2.2.2, released 2017/09/15
#>  Path to GDAL shared files: /usr/share/gdal/2.2
#>  GDAL binary built with GEOS: TRUE
#>  Loaded …

我有一个由Tweets（只是消息文本）组成的向量，我正在清理这些向量以用于文本挖掘。我removePunctuation从这样的tm包中使用过：

clean_tweet_text = removePunctuation(tweet_text)

这样就产生了一个矢量，除了撇号外，所有标点符号都从文本中删除了，因为没有注册带有撇号的单词，这破坏了我的关键字搜索。例如，我的一个关键字是，climate但是如果有一条推文'climate，则不会被计算在内。

如何删除向量中所有的撇号/单引号？

这是dput可复制示例的标头：

c("expert briefing on climatechange disarmament sdgs nmun httpstco5gqkngpkap", 
"who uses nasa earth science data he looks at impact of aerosols on climateamp weather httpstcof4azsiqkw1 https…", 
"rt oddly enough some republicans think climate change is real oddly enough… httpstcomtlfx1mnuf uniteblue https…", 
"better dead than red bill gates says that only socialism can save us from climate change httpstcopypqmd1fok", 
"i see …

如果我有一个简单的df，如下所示：

mtcars 
               mpg cyl disp  hp drat   wt ... 
Mazda RX4     21.0   6  160 110 3.90 2.62 ... 
Mazda RX4 Wag 21.0   6  160 110 3.90 2.88 ... 
Datsun 710    22.8   4  108  93 3.85 2.32 ... 
               ............

假设第一列（row.names）是一长串汽车，那么我将如何仅使用该列来创建频率词云。我尝试过wordcloud(mtcars$row.names)但出现以下错误：

UseMethod（“ TermDocumentMatrix”，x）中的错误：没有适用于'TermDocumentMatrix'的适用方法应用于类“ NULL”的对象

也许wordcloud是错误的软件包？

我在R的ggplot2做一个基本的条形图

代码是:

  ggplot(shootings,aes(x=Year,y= Injured))+geom_bar(stat="identity",fill="#CC6666",colour="black")+ggtitle("Injured")

它呈现如下:

问题:

1. 条形图由内部水平线分隔或重叠分隔？

2. 假设它们堆叠在一起(例如,1984年的酒吧代表2起事故 - 一起总共19人受伤,一人总共受伤1人,总共20人),我怎么摆脱水平线值y = 19所以我可以显示一个值为20的单个栏？

先感谢您.

编辑:

@Didzis Elferts奇怪的是,当我运行你的代码时(除了删除传说)我得到了这个:

2个奇怪的东西:它有奇怪的美学(我想我当然可以修改)但总和似乎不起作用(1984现在只显示总共19 - 而不是20.我试图输入x,y值但它不起作用).他们需要被安置吗？谢谢.

编辑2:

@Didzis Elferts您的修改后的答案(带有stat_summary)和我的代码:

ggplot(shootings,aes(Year,Injured))+ stat_summary(fun.y=sum,geom="bar",colour="black",fill="#CC6666",show.legend = FALSE)+ ggtitle("Injured")

工作得很完美!

有没有办法在ggplot2中传播刻面图？正如你在图片中看到的那样(我的情节的底部),x轴在每个图的两端重叠一点,模糊了岁月.我想将它们分开.无论我在导出时增加多少宽度,值仍然会重叠.

我的代码,如果相关:

  ggplot(filter(TotalsRegion, Source!="Total"), aes(x=Date, y=SourceSum, col=Source)) +
   geom_line(size=1) +
   facet_grid(.~Region)

我有一个数据框如下：

（如果数据不符合格式，请查找图像）

Sample Data                     
date    id  name    loc mean    count   mean
9/6/2016    kar1    AAA 100004  0   1   
9/8/2016    kar1    AAA 100004  0   3   
9/9/2016    kar1    AAA 100004  0   4   
9/10/2016   kar1    AAA 100004  0   5   
9/11/2016   kar1    AAA 100004  0   6   
9/12/2016   kar1    AAA 100004  0   7   
9/13/2016   kar1    AAA 100004  0   8   
9/14/2016   kar1    AAA 100004  0   9   
9/7/2016    blr1    BBB 100004  0   2   

我正在尝试根据 id、name、loc 在计数字段上计算（（7 天滚动平均值））3 天滚动平均值（前 3 天和后 3 天），但结果不符合预期。

找到以下代码：

fnrollmean <- function(x) rollmean(df$count,7,na.pad=TRUE,align="center")

rollmeandf …

我有一个带有示例文本的文本文件,如下所示:

"venezuela probes ex-oil czar ramirez over alleged graft scheme
caracas/houston (reuters) - venezuela is investigating rafael ramirez, a 
once powerful oil minister and former head of state oil company pdvsa, in 
connection with an alleged $4.8 billion vienna-based corruption scheme, the 
state prosecutor's office announced on friday.


5.5 hours ago
— reuters


amazon ordered not to pull in customers who can't spell `birkenstock'
a german court has ordered amazon not to lure internet shoppers to its 
online marketplace when …

http://snomedct.t3as.org/这是一个Web服务,可以分析英文临床文本,并报告任何可以检测到的概念.
对于例如 - 我有头痛.它会将头痛识别为症状.

现在我想做的是通过R将句子发送到Web服务,并将表格从网页返回到R进行进一步分析.