绘制一个没有NA的图
绘制一个没有NA的图
提问于 2019-11-16 22:21:04
Apartment_no <- c('1-SV','1-SH','3-SV','3-SH','5-SV','5-SH','7-SV','7-SH')
January <- c('', '', '3','5','9','','15','19')
February <- c('5', '', '3','5','','15','','19')
March <- c('5', '', '3','5','16','15','7','')
April <- c('', '', '3','5','','15','','19')
May <- c('', '8', '3','5','','15','','19')
June <- c('12', '', '','5','','15','','19')
July <- c('5', '', '3','5','','15','','19')
August <- c('51', '', '3','','','15','','19')
September <- c('5', '', '3','5','','15','','19')
October <- c('57', '', '','5','','15','','19')
November <- c('5', '', '','5','','21','','19')
December <- c('', '', '33','5','','15','','19')
Heatmeters <- data.frame(Apartment_no,January,February,March
,April,May,June,July,August,September,August,November,December)
library(tidyverse)
library(dplyr)
library(ggplot2)
Heatmeters %>%
select(Apartment_no,January,February,March,April,May,June,July,August,September,August,November,December)
#> Apartment_no January February March April May June July August September
#> 1 1-SV 5 5 12 5 51 5
#> 2 1-SH 8
#> 3 3-SV 3 3 3 3 3 3 3 3
#> 4 3-SH 5 5 5 5 5 5 5 5
#> 5 5-SV 9 16
#> 6 5-SH 15 15 15 15 15 15 15 15
#> 7 7-SV 15 7
#> 8 7-SH 19 19 19 19 19 19 19 19
#> November December
#> 1 5
#> 2
#> 3 33
#> 4 5 5
#> 5
#> 6 21 15
#> 7
#> 8 19 19我得到了每个月的数据和特定的公寓编号。有几个月没有给出数据，所以有na。在图表中绘制数据时，如何避免这些na。PS:单元编号是一个字符列，而其他的是数字列。我尝试了以下代码，但它不起作用：
plot(data=na.omit(Heatmeters)as.factor(Apartment_no), January,data=Heatmeters)可以在一个图形中绘制所有月份的数据吗？我实际上只希望那些公寓出现在图表上，其中有对应于任何月份的数据。
回答 1
Stack Overflow用户
发布于 2019-11-16 22:49:34
您的数据包含''，它是一个空字符串，而不是NA。如果将''显式设置为NA，并将月份数据更改为数字，则绘图将生成结果。我假设这样的情节就是你想要的。
下面是一些代码。
Heatmeters = data.frame(
Apartment_no = c('1-SV','1-SH','3-SV','3-SH','5-SV','5-SH','7-SV','7-SH'),
January = c('', '', '3','5','9','','15','19'),
February = c('5', '', '3','5','','15','','19'),
March = c('5', '', '3','5','16','15','7',''),
April = c('', '', '3','5','','15','','19'),
May = c('', '8', '3','5','','15','','19'),
June = c('12', '', '','5','','15','','19'),
July = c('5', '', '3','5','','15','','19'),
August = c('51', '', '3','','','15','','19'),
September = c('5', '', '3','5','','15','','19'),
October = c('57', '', '','5','','15','','19'),
November = c('5', '', '','5','','21','','19'),
December = c('', '', '33','5','','15','','19')
)
Heatmeters[Heatmeters == ''] = NA
Heatmeters[,2:13] = mutate_all(Heatmeters[,2:13], as.numeric)
plot(Heatmeters$Apartment_no, Heatmeters$August)这是情节的结果..。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58891650
复制相关文章
相似问题
腾讯云开发者
