小编Jot*_*ota的帖子

这是一个非常简单的问题,但我无法弄清楚如何编写脚本.在我搞清楚之前,我不能前进.我是R的新手并且使用代码,我正在阅读几本介绍性手册,但还没有找到任何针对这个特定问题的内容.

一般来说,这是问题所在.假设我有一个名为的数据框x,如下所示:

a <- c(1995,1995,1995,1996,1997,1997,1997,1998)
b <- c(1,2,3,1,2,3,4,1)
c <- c(5,7,8,2,4,5,7,8)
(x <- data.frame(a,b,c))
     a b c
1 1995 1 5
2 1995 2 7
3 1995 3 9
4 1996 1 2
5 1997 2 4
6 1997 3 5
7 1997 4 7
8 1998 1 8

专栏中有些年份有多个条目a(即1995年出现3次),而实际上每年我只想要一个条目.如果我尝试将列映射到a列c,我将为每个日期结束多个点,但这没有用.我不关心列b,但我想对c每年的列的条目求和,这样我最终得到的数据框每年都有一个条目.鉴于上述数据,结果数据框架如下所示:

     a  c
1 1995 21
2 1996  2
3 1997 16
4 1998  8

有任何想法吗？

如何将"占位符"文本添加到Access窗体中的文本框？

在用户在文本框中输入任何内容之前,我希望它显示类似的内容

名称: [Please enter the right name]

然后当用户输入一些值时,文本框应该显示相反的值.

我使用R在世界地图上使用ggplot2的大圆圈投影一些数据流.我想也可以在我的地图上预测城市地区:http: //www.naturalearthdata.com/downloads/

但是,它们位于SpatialPointsDataFrame中.也许我的问题很简单,但我不知道如何将文件更改为SpatialPolygons.

我的代码如下:

urbanareasin  <- readShapePoly("//....//ne_10m_populated_places//ne_10m_populated_places.shp") 
simp<-gSimplify(urbanareasin, tol=0.1)

urbanareas<-ggplot2:::fortify(simp)

我也尝试过:

urbanareas<-fortify.SpatialPolygonsDataFrame(simp)

和:

urbanareas<-ggplot2:::fortify.SpatialPolygonsDataFrame(simp)

但它们都不起作用.我不得不遗漏一些东西......我是R的初学者,我会很感激任何建议.

先感谢您!

PS.查找以下数据信息:

str(urbanareasin) # to get info about the object

Formal class 'SpatialPointsDataFrame' [package "sp"] with 5 slots

..@ data :'data.frame': 7322 obs. of 92 variables:

.. ..$ SCALERANK : int [1:7322] 10 10 10 10 10 10 10 10 10 10 ...

.. ..$ NATSCALE : int [1:7322] 1 1 1 1 1 1 1 1 1 1 ...

.. ..$ LABELRANK …

之前我问过这个关于分割音频文件的问题。我从 @Jean V. Adams 得到的答案对于小声音对象来说相对有效（缺点：输入是立体声，输出是单声道，而不是立体声）：

library(seewave)

# your audio file (using example file from seewave package)
data(tico)
audio <- tico # this is an S4 class object
# the frequency of your audio file
freq <- 22050
# the length and duration of your audio file
totlen <- length(audio)
totsec <- totlen/freq

# the duration that you want to chop the file into
seglen <- 0.5

# defining the break points
breaks <- unique(c(seq(0, totsec, seglen), totsec))
index …

我想在plot.ts()图表上添加一条垂直线：

plot.ts(cbind(a, b, c, d, e, f, g, h),main="Time Series")
a<-seq(1:16);
b<-seq(1:16);
c<-seq(1:16);
d<-seq(1:16);
e<-seq(1:16);
f<-seq(1:16);
g<-seq(1:16);
h<-seq(1:16)

我尝试过，abline(v=8.75)但这并没有达到我希望的目标。由于在具有此功能的图形窗口中有两列图形，因此我需要添加两条垂直线，每条垂直线一条。有任何想法吗？

我有数据框,下面是它的样本数据.

Company     Category    Margin
SBI             BK      34.5
PNB             BK      39.5
UCO BANK        BK      39.9
BANK            BK      41.3
INDIAN BANK     BK      42.3
DENA BANK       BK      44.5
VIJAYA BANK     BK      44.5
UNION BANK      BK      47.6
CENTRAL BANK    BK      49.8
INFOSYS         IT      5.6
HCL TECH        IT      5.9
TCS             IT      6.9
CMC             IT      12.6
TECHMAHINDRA    IT      12.6
COGNIZANT       IT      15.8
IGATE           IT      22.4
WIPRO           IT      22.9
HEXAWARE        IT      34.8
MAHINDRA SATYAM IT      34.8
DR. REDDYS      PH      14.5
SUN PHARMA      PH      19.2
CIPLA           PH      23.9 …

我无法运行vif命令

mData = read.csv(file.choose())
attach(mData)
head(mData)
reg1= lm(MPG~Weight)
plot(reg1)
summary(reg1)
vif(Weight)

它抛出一个错误,如:

(函数(classes,fdef,mtable)中的错误:无法为签名'"integer"'找到函数'vif'的继承方法

我希望得到所有超过第一个"."的角色.如果有的话.否则,我想找回相同的字符("8" - >"8").

例:

v<-c("7.7.4","8","12.6","11.5.2.1")

我想得到这样的东西:

[1] "7 "8" "12" "11"

我的想法是将每个元素拆分为"." 然后只进行第一次拆分.我找不到有效的解决方案......

是否可以自动执行以下操作:引用MS Word Viewer以编程方式打开文档然后打印它？C#理想情况下

我猜是否有可能打开它然后更有可能打印它.

我尝试在Visual Studio中添加对COM对象的引用.MS Office 11/12对象库但没有列出MS Word库？有任何想法吗？

我没有安装Office 200x

干杯

我有一个大约有800万行和3列的数据框.我用strptime()以下方式:

df$date.time <- strptime(df$date.time, "%m/%d/%y %I:%M:%S %p")

这适用于所有行,但我检查使用的1104行

df[is.na(df$date.time), ]

当我查看这些"问题"数据时,date.time条目似乎按照我期望的方式进行格式化.例如,这是一个出现问题的观察结果,但似乎不是NA:

id                date.time              outcome
observation543490 2012-03-11 02:14:01    C

在这里可能会发生什么,is.na(df$date.time)为显然已正确转换的行返回TRUE值？

这是一个可重复的例子(如果你在CST):

is.na(strptime("03/11/12 2:14:01 AM", "%m/%d/%y %I:%M:%S %p", "CST6CDT"))
#[1] TRUE