小编Duc*_*uck的帖子
如何将数据框保存在由列分隔的txt或excel文件中
我有一个关于以txt或excel格式保存数据帧的问题.我在R中有一个数据框但是当我保存它时:
- 首先
write.table()在Excel中打开保存的数据框时使用函数,所有列都分组在一列中,您必须在Excel中分隔列,否则可能会丢失数据.情况与此相同write.csv()的功能.
是否可以在R中保存所有列分开的数据框.谢谢.
推荐指数
解决办法
查看次数
将列表中的NaN值替换为零(0)
亲爱的,我有一个问题NaN.我正在处理一个包含许多变量的大型数据集NaN.数据是这样的:
z=list(a=c(1,2,3,NaN,5,8,0,NaN),b=c(NaN,2,3,NaN,5,8,NaN,NaN))
我用这个命令强制列表到数据框但我得到了这个:
z=as.data.frame(z)
> is.list(z)
[1] TRUE
> is.data.frame(z)
[1] TRUE
> replace(z,is.nan(z),0)
Error en is.nan(z) : default method not implemented for type 'list'
我强迫z到数据框但是这还不够,也许NaN在列表中有一个表单需要更改.谢谢你的帮助.这个数据只是我原始数据有36000个观察值和40个变量的例子.
推荐指数
解决办法
查看次数
在ggplot2中构建双y轴图的功能
我正在测试一个函数来在ggplot2中构建一个双y轴图.它工作但我无法从输入图形中获取一些元素.我建立这两个图有两个数据帧Base1和Base2(我加dput()在最后的部分版本):
library(ggplot2)
library(scales)
library(gtable)
#Graph 1
g1<-ggplot(Base1, aes(x = Month, y = value, fill = variable)) +
geom_bar(stat="identity",colour="black",size=1) +
scale_y_continuous(labels = comma,breaks=pretty_breaks(n=7),
limits=c(0,max(Base1$value,na.rm=T))) +
theme(axis.text.x=element_text(angle=90,colour="grey20",face="bold",size=12),
axis.text.y=element_text(colour="grey20",face="bold",hjust=1,vjust=0.8,size=15),
axis.title.x=element_text(colour="grey20",face="bold",size=16),
axis.title.y=element_text(colour="grey20",face="bold",size=16)) +
xlab('Month')+ylab('')+ ggtitle("My graph") +
theme(plot.title = element_text(lineheight=3, face="bold", color="black",size=24)) +
theme(legend.text=element_text(size=14),
legend.title=element_text(size=14)) +
scale_fill_manual(name = "variable",
label = "Power",
values = "#FF6C91")
第二个:
#Graph2
colors=c("red","darkgreen")
g2<-ggplot(Base2, aes(x=Month, y=value, color=variable))+
geom_line(aes(group=variable),size=1.3) +
geom_point(size=3.8, shape=21, fill="white") +
scale_color_manual(values=colors)+ ggtitle("My graph")
使用这两个图形我使用下一个函数两个制作双y轴图:
double_axis_graph <- function(graf1,graf2){
graf1 <- graf1 …推荐指数
解决办法
查看次数
在ggplot中制作带有x轴垂直标签的条形图
亲爱的,我正在试图在ggplot中制作一个条形图,但我没有得到结果.数据框是下一个:
z=data.frame(x1=read.table(textConnection("
Indicador
Total
Max.
Min.
Mean
Promedio.Aparatos
Promedio.Automotriz
Promedio.Belleza
Promedio.C.Internet
Promedio.Comp
Promedio.Deportes
Promedio.Educación
Promedio.Entretenimiento
Promedio.Gasolina
Promedio.C.Comerciales
Promedio.ATMs
Promedio.Hogar
Promedio.Libros.y.Música
Promedio.Moda
Promedio.Pagos.e.Impuestos
Promedio.Salud
Promedio.Servicios.Varios
Promedio.Supermercados
Promedio.Telefonia
Promedio.Viajes
Porcentaje.Aparatos
Porcentaje.Automotriz
PorcentajeBelleza
PorcentajeCompras.en.Internet
PorcentajeComputación
PorcentajeDeportes
PorcentajeEducación
PorcentajeEntretenimiento
PorcentajeGasolina
PorcentajeCentros.Comerciales
PorcentajeATMs
PorcentajeHogar
PorcentajeLibros.y.Música
PorcentajeModa
PorcentajePagos.e.Impuestos
PorcentajeSalud
PorcentajeServicios.Varios
PorcentajeSupermercados
PorcentajeTelefonia
PorcentajeViajes
"),header=T),
x2=read.table(textConnection("
Número
36001
35916
12320
35889
4487
2751
673
1023
1062
4602
824
4438
4021
2577
31845
5443
641
6982
32868
4696
1594
9746
6239
13170
3973
2526
540
834
964
4291 …推荐指数
解决办法
查看次数
使用拼凑时如何减少图之间的空间
大家好，我正在使用一个小数据框来构建一些绘图ggplot2。我的数据框是df，我将其包含dput()在最后。我有情节，当我使用时问题就会出现patchwork。我希望最终的图没有空格，以便中间的线（即轴）可以将图连接在一起。这是代码：
library(ggplot2)
library(patchwork)
library(cowplot)
library(ggtext)
#Plot 1
G1 <- ggplot(df,aes(x=Var1,y=Var2))+
geom_line(aes(color=Group,group=Group),size=1)+
geom_point(aes(color=Group,group=Group,shape=Group),size=2)+
scale_y_continuous(limits = c(0,NA),
sec.axis = dup_axis(name = '',breaks = NULL,labels = NULL))+
theme_half_open(12) +
background_grid() +
theme(
strip.background = element_blank(),
strip.text = element_textbox(
size = 12,
face = 'bold',
color = "white", fill = "#5D729D", box.color = "#4A618C",
halign = 0.5, linetype = 1, r = unit(5, "pt"), width = unit(1, "npc"),
padding = margin(2, 0, 1, 0), margin = …推荐指数
解决办法
查看次数
如何删除R中字符串类型变量中的字符
亲爱的,我在R中有这种类型的变量:
v1
CAR10100231095000C
CAR10100231189000
CAR10100231191000C
CAR10100231192000
CAR10100231194000C
CAR101002311950002
CAR101002311960001
我的问题是对于具有C观察的最后一个元素的行.我试图使用nchar()函数,但我有其他行具有相同的长度,例如CAR10100231191000CCAR101002311960001.我的问题是如何C从具有此字符的raws中删除并获取此表单的新变量:
v1
CAR10100231095000
CAR10100231189000
CAR10100231191000
CAR10100231192000
CAR10100231194000
CAR101002311950002
CAR101002311960001
哪些Cs行已从行中删除,其余行具有其原始形式.谢谢
推荐指数
解决办法
查看次数
从多个屏幕网页获取网络抓取信息
我试图从互联网上获取有关企业的一些信息.大部分信息都位于此页面:http://appscvs.supercias.gob.ec/portalInformacion/sector_societario.zul,页面如下所示:
在这个页面中,我必须单击选项卡Busqueda de Companias,然后有趣的一面开始.当我点击时,我得到下一个屏幕:
在这个页面中,我必须设置选项Nombre,然后我必须插入一个带有名称的字符串.例如,我将添加字符串PROAÑO & ASOCIADOS CIA. LTDA.,我将获得下一个屏幕:
然后,我必须点击Buscar,我将进入下一个屏幕:
在这个屏幕中,我有这个企业的信息.然后,我必须单击选项卡Informacion Estados Financieros,我将进入下一个屏幕:
在这个最终屏幕中,我必须单击选项卡Estado Situacion,我将从列中的企业获取信息Codigo de la cuenta contable,Nombre de la cuenta contable并且Valor.我想将这些信息保存在数据框中.我发现的大多数复杂的一面都是在我必须设置元素Nombre,插入一个字符串,然后Buscar点击直到找到标签时开始的Informacion Estados Financieros.我尝试过使用html_session和html_form从rvest包中,但元素是空的.
你能帮我解决一下这个问题吗？
推荐指数
解决办法
查看次数
如何在一个字符串中删除特殊字符,空格和修剪R中的字符变量
我在R中遇到一个带有字符类型变量的问题.我在数据框中的变量有这样的结构:
X1
ANGLO AUTOMOTRIZ S.A. MATRIZ
AUTOMOTORES Y ANEXOS / AYASA
ECUA - AUTO S.A. MATRIZ
METROCAR S.A. 10 DE AGOSTO
MOSUMI LA "Y"
我的问题是我想要一个没有的新变量./-"",字符串必须组成一个没有空格,如下所示:
X2
ANGLOAUTOMOTRIZSAMATRIZ
AUTOMOTORESYANEXOSAYASA
ECUAAUTOSAMATRIZ
METROCARSA10DEAGOSTO
MOSUMILAY
可以在R中做到这一点.谢谢.
推荐指数
解决办法
查看次数
如何在ggplot2中扩展调色板
大家好我在ggplot2中制作图形,但我希望为它添加不同的颜色.一种方法是使用RColorBrewer包中的调色板.我使用了这个包中的调色板,但我得到了这个.我使用的代码是下一个:
library(ggplot2)
library(reshape2)
library(scales)
library(RColorBrewer)
#Graphic
png(filename = "Atotal.png", width = 1050, height = 900)
Atotal=ggplot(Melt.Atotal, aes(x = Var2, y = value, fill = Mes)) +
geom_bar(stat = "identity") + scale_y_continuous(labels = comma) + scale_fill_brewer(palette="Set3") +
annotate("text", x = ncol(AtotalM) - 1.3, y = finalValA1 + 4000000,
label = finalValA1f, size = 5) + theme(axis.text.x=element_text(angle=90,colour="grey20",face="bold"),axis.text.y=element_text(colour="grey20",face="bold",hjust=1,vjust=0.8),axis.title.x=element_text(colour="grey20",face="bold"),axis.title.y=element_text(colour="grey20",face="bold"))+xlab('Mes')+ylab('Total')+ ggtitle("Consumo Automotriz (A)")+theme(plot.title = element_text(lineheight=3, face="bold", color="black",family="F",size=24))
print(Atotal)
dev.off()
scale_fill_brewer(palette="Set3")在此代码中使用的结果是下一个:
并非所有价值观Mes都在考虑之中.我的数据是Melt.Atotal,它有3个变量Mes,Var2和Value.构建的代码 Melt.Atotal …
推荐指数
解决办法
查看次数
如何将列作为行名称放在Dataframe中
我试图计算R中的距离,但在我的数据框中,第一个变量(列)是一个ID,例如我有这个:
rownames ID Amount1 1 0015 15 2 9812 25 3 1672 89
我想要这样的东西:
rownames Amount1 0015 15 9812 25 1672 89
推荐指数
解决办法
查看次数