小编joe*_*rna的帖子

有没有办法在 ifelse 语句中实现这些条件？

df <-data.frame(Name = c("Tom","Mary","Tim","Chris") )

ifelse(name starting with T, "YES", "NO")
ifelse(name include i, "YES", "NO")
ifelse(name ends with s, "YES", "NO")

我需要用3位数的zip边界创建热图.我有3位数的拉链和计数数据

zip <- c(790, 791, 792, 793)
count <- c(0, 100, 20, 30)
TX <- data.frame(zip, count)

另外,我画了TX地图.

library(ggplot2)
library(ggmap)
library(maps)
library(mapdata)
states <- map_data("state")
texas<- subset(states, region =="texas")

ggplot(data = texas) + 
geom_polygon(aes(x = long, y = lat), fill = "gray", color = "black") 

我想要实现的是(1)使用3位数的邮政编码绘制边界,以及(2)使用计数列创建热图.使用热图着色,结果将如此.