我想n在m箱子中生成一组球的排列.以下嵌套列表集生成这些排列.
n <- 3
m <- 4
v <- rep(0,m)
for (i in n:0){
for (j in (n-sum(i)):0){
for (k in (n-sum(i,j)):0){
for (l in (n - sum(i,j,k)):0){
v <- c(i,j,k,l)
print(v)
if (sum(v) == n){ break }
}
}
}
}
打印解决方案:
[1] 3 0 0 0
[1] 2 1 0 0
[1] 2 0 1 0
[1] 2 0 0 1
[1] 1 2 0 0
[1] 1 1 1 0
[1] 1 1 …我在ggmap包中使用Stamen背景地图.我想,以取代所有光栅背景图像中的黑色元素(即颜色"#000000"有发言权"#C0C0C0"-基本上看起来更像碳粉光背景地图).
library(ggmap)
loc <- c(left = -73.706, bottom = 42.6940, right = -73.648, top = 42.7921)
troy <- get_map(location = loc, zoom = 13, maptype = "toner", source = "stamen")
ggmap(troy)
如下所示替换颜色仅返回栅格部分,并剥离其ggmap类的对象.
class(troy)
troy[troy == "#000000"] <- "#C0C0C0"
ggmap(troy)
class(troy)
有没有办法更换栅格单元而不改变其他属性？