小编Kev*_*ham的帖子

任何人都可以解释为什么list1和list2下面不一样？

list1 <- list()
lev1 <- "level1"
lev2 <- "level2"
list1[[lev1]][[lev2]] <- 1
list1
$level1
level2 
     1 

list2 <- list()
list2$level1$level2 <- 1
list2
$level1
$level1$level2
[1] 1

有没有办法确定两个不同功能的文本是否相同？

x <- function(x) print(x + 2)
y <- function(x) print(x + 2)
identical(x, y)
[1] FALSE
identical(mget("x"), mget("y"))
[1] FALSE
identical(unname(mget("x")), unname(mget("y")))
[1] FALSE

我试图改变ggplot条形图的不透明度.请考虑以下示例:

df <- data.frame(period = rep(c("current", "past"), 3), 
                 type = c("so_far", "so_far", "source_x", "source_x", "source_y", "source_y"), 
                 income = c(12, 10, 7, 9, 4, 7))
ggplot(df, aes(x = period, y = income, fill = type)) + geom_bar(stat = "identity")

这给出了以下图:

实际上,虽然对于当前时期,source_x和source_y是估计值,但在过去它们是真实值.所以我想改变左侧栏上蓝色和绿色部分的不透明度.可以这样做吗？怎么样？