Philippe Massicotte сделал небольшую страницу R Spatial Cookbook с заметками по геопространственному анализу, в основном касающемуся ДЗЗ и R. Страница будет дополняться.
Добро пожаловать в Telegram-канал "Наука и данные"! Если вы увлечены наукой о данных, машинным обучением и визуализацией данных, то этот канал станет вашей лучшей записной книжкой. Здесь вы найдете дайджест по полезным и интересным инструментам в указанных областях. Наша цель - помочь вам быть в курсе последних тенденций и находок в мире науки о данных. Канал "Наука и данные" создан для всех, кто жаждет знаний и стремится к профессиональному росту. Присоединяйтесь к нам, чтобы не упустить важную информацию и делиться своими открытиями и вопросами с единомышленниками. А еще у нас есть сайт, который будет отличным дополнением к нашему каналу: https://naukaidannye.
etlify.app/ Здесь вы найдете еще больше полезной информации и ресурсов. Подпишитесь на канал "Наука и данные" и отправьте свой путь к новым знаниям и возможностям в мире науки о данных!
20 Feb, 07:01
19 Feb, 07:30
18 Feb, 07:00
17 Feb, 16:00
17 Feb, 07:03
14 Feb, 08:05
14 Feb, 07:00
13 Feb, 08:03
13 Feb, 07:33
13 Feb, 07:03
12 Feb, 08:00
12 Feb, 07:00
12 Feb, 06:00
11 Feb, 07:38
gt_plt_summary()
. Увы, почему-то не со всеми данными получается сделать подобные таблицы, видимо библиотека давно не обновлялась, зато skimr::skim()
работает всегда.library(gtExtras)
iris |>
gt_plt_summary()
11 Feb, 07:37
data_color()
из библиотеки gt()
.
library(gt)
library(palmerpenguins)
library(tidyverse)
penguins |>
head() |>
select(-island, -year) |>
gt() |>
data_color(
method = "numeric",
palette = viridis::plasma(n = 4)
)
11 Feb, 07:00
%T>%
или %<>%
. Есть и более необычные варианты pipe как на странице Design tradeoffs. 10 Feb, 09:06
10 Feb, 09:06
10 Feb, 07:03
07 Feb, 08:00
07 Feb, 07:00
06 Feb, 07:05
26 Jan, 07:00
24 Jan, 08:00
24 Jan, 07:07
library(cowsay)
goldfish <- animals[["goldfish"]]
cat(goldfish)
/`-._
/_,.._`:-
,.-' , `-:..-')
: o ):'; _ {
-._ '__,.-'\`-.)
\\ \,.-'
cow_greedy <- animals[["cow_greedy"]]
cat(cow_greedy)
^__^
($$)\ ________
(__)\ )\ /\
||------w|
|| ||
23 Jan, 07:04
22 Jan, 08:06
22 Jan, 07:00
library(lofifonts)
txt <- " Наука \n и данные"
coords <- bitmap_text_coords(txt, "spleen-12x24")
library(grid)
grid.newpage()
grid.rect(
x = coords$x * 2,
y = coords$y * 2,
width = 1.6,
height = 1.6,
default.units = 'mm',
gp = gpar(fill = viridis::turbo(nrow(coords),
direction = -1),
col = NA)
)
21 Jan, 08:00
21 Jan, 07:04
20 Jan, 07:00
17 Jan, 08:01
16 Jan, 07:01
16 Jan, 07:01
15 Jan, 08:00
15 Jan, 07:00
14 Jan, 07:00
14 Jan, 07:00
_quarto.yml
строки:format:
html:
include-after-body: [misc.html]
14 Jan, 06:06
13 Jan, 14:16
13 Jan, 07:00
10 Jan, 07:40
10 Jan, 07:22
10 Jan, 07:00
27 Dec, 10:00
27 Dec, 10:00
27 Dec, 06:10
26 Dec, 07:01
25 Dec, 08:00
25 Dec, 07:30
25 Dec, 07:01
24 Dec, 07:00
23 Dec, 07:00
20 Dec, 08:01
20 Dec, 07:00
19 Dec, 11:00
19 Dec, 07:00
18 Dec, 07:30
library(legendry)
gapminder::gapminder |>
dplyr::filter(year == max(year)) |>
ggplot(aes(gdpPercap, lifeExp, size = pop,
fill = continent)) +
geom_point(pch = 21, alpha = 0.8) +
scale_size_area(
limits = c(0, NA), max_size = 20,
breaks = c(0, 100, 500, 1000)*1e6,
labels = c(0, "100M", "500M", "1B"),
guide = guide_circles(vjust = 1)
) +
scale_fill_discrete(guide =
guide_legend(override.aes =
list(size = 4, alpha = 0.8))) +
scale_x_log10() +
labs(
x = "ВВП на душу населения",
y = "Ожидаемая продолжительность жизни",
fill = "Континент",
size = "Население"
)
18 Dec, 07:01
17 Dec, 07:31
17 Dec, 07:01
16 Dec, 08:00
16 Dec, 07:00
13 Dec, 08:01
13 Dec, 07:00
12 Dec, 07:02
11 Dec, 07:00
10 Dec, 07:02
06 Dec, 08:00
06 Dec, 07:00
06 Dec, 05:30
05 Dec, 07:02
04 Dec, 07:01
03 Dec, 07:01
htmlwidget
.02 Dec, 08:01
02 Dec, 07:01
01 Dec, 13:30
01 Dec, 13:30
01 Dec, 09:00
01 Dec, 05:01
30 Nov, 07:37
29 Nov, 08:00
29 Nov, 07:00
28 Nov, 08:00
28 Nov, 07:02
27 Nov, 08:00
27 Nov, 07:30
22 Nov, 07:01
21 Nov, 07:00
21 Nov, 06:02
ANTHROPIC_API_KEY
, похоже, не обойтись, однако pal позволяет переписать код под один из префиксов: cli, testthat или roxygen, что уже хорошо. 20 Nov, 07:00
19 Nov, 07:00
19 Nov, 06:00
18 Nov, 07:01
16 Nov, 12:02
16 Nov, 12:02
16 Nov, 09:52
15 Nov, 07:02
14 Nov, 07:02
13 Nov, 07:01
remotes::install_github("luisdva/hexsession")
hexsession::make_tile()
12 Nov, 07:01
11 Nov, 07:01
10 Nov, 07:48
08 Nov, 07:02
08 Nov, 06:01
07 Nov, 11:19
07 Nov, 11:19
07 Nov, 07:01
07 Nov, 06:30
07 Nov, 06:00
06 Nov, 07:00
06 Nov, 06:01
mf_get_borders()
и mf_get_pencil()
(хотя они и раньше были в предшествующей библиотеке {cartography}). Мне особенно понравилась вторая функция, которая преобразует полигоны в линии, имитируя рисунок карандашом.05 Nov, 07:01
tidymodels
. 02 Nov, 10:04
spectral_indices()
возвращает таблицу спектральных индексов.get_stac_data()
позволяет загружать изображения из любого доступного каталога STAC. Например, можно загрузить композит каналов Landsat с маской облачности:aoi <- sf::st_point(c(-74.912131, 44.080410))
aoi <- sf::st_set_crs(sf::st_sfc(aoi), 4326)
aoi <- sf::st_buffer(sf::st_transform(aoi, 5070), 1000)
landsat_image <- get_stac_data(
aoi,
start_date = "2022-06-01",
end_date = "2022-06-30",
pixel_x_size = 30,
pixel_y_size = 30,
asset_names = c("red", "blue", "green"),
stac_source = "https://planetarycomputer.microsoft.com/api/stac/v1/",
collection = "landsat-c2-l2",
mask_band = "qa_pixel",
mask_function = landsat_mask_function,
output_filename = tempfile(fileext = ".tif"),
item_filter_function = landsat_platform_filter,
platforms = c("landsat-9", "landsat-8")
)
landsat_image <- get_landsat_imagery(
aoi,
start_date = "2022-06-01",
end_date = "2022-06-30",
output_filename = tempfile(fileext = ".tif")
)
calculate_indices()
:indices <- calculate_indices(
landsat_image,
available_indices,
output_filename = tempfile(fileext = ".tif")
)
raster_stack <- stack_rasters(
c(landsat_image, indices),
tempfile(fileext = ".vrt")
)
02 Nov, 08:01
02 Nov, 07:01
01 Nov, 08:01
01 Nov, 07:00
31 Oct, 07:00
30 Oct, 07:00
30 Oct, 07:00
29 Oct, 07:02
28 Oct, 07:30
28 Oct, 07:02
19 Oct, 15:51
19 Oct, 15:50
18 Oct, 08:01
18 Oct, 07:00
17 Oct, 07:02
16 Oct, 07:00
15 Oct, 07:00
.gitignore
-шаблоны в зависимости от используемых операционных систем, IDE и языков программирования. Можно установить функционал в командной строке, тогда записать шаблон в .gitignore
достаточно просто, например:
gi r,macos >> .gitignore
git add .
git commit -m "add gitignore! :tada:"
_site
(либо _book
и т. п.) не задействуется, мы его отправляем в .gitignore
, что существенно сокращает объем коммитов. 14 Oct, 14:10
14 Oct, 07:01
11 Oct, 07:00
q
для активации)11 Oct, 06:02
10 Oct, 07:02
09 Oct, 07:01
08 Oct, 06:00
07 Oct, 07:00
05 Oct, 11:08