OSCR

Regulation of physical activity and energy expenditure through Phf6 in the medial preoptic area.

Code ↔ Paper

3 matches between paragraphs of the paper and lines of its authors' code, computed by the harvester (lexical-v1). Click a colored paragraph or line to see its counterpart.

The 3 matches
  1. [1] § Methods › Single-cell RNA sequencing data analyses ↔ 2025POA_esr1_postive.r, lines 92 to 125 · score 0.74 · FindNeighbors, RunUMAP, FindClusters, CCA, resolution, Seurat · Report a mismatch
  2. [2] § Methods › Single-cell RNA sequencing data analyses ↔ 2025POA_esr1_phf6_postivecells.r, lines 1 to 60 · score 0.68 · FindNeighbors, RunUMAP, FindClusters, CCA, resolution, Seurat · Report a mismatch
  3. [3] § Results › Phf6 marks a subset of Esr1-expressing neurons in the MPOA ↔ 2025POA_esr1_postive.r, lines 127 to 185 · score 0.52 · UMAP, Slc17a6, Slc32a1, Gad1, RNA, clustering · Report a mismatch

Paper

Loaded from Europe PMC by your browser; OSCR does not store it: doi.org · Europe PMC

The paper is loaded when this pane is shown.

The authors' code

R · 462 lines · 14 KB · no license · 2 matches

  1. # 导入必要的库
  2. library(dplyr)
  3. library(pheatmap)# 加载 Nebulosa 包
  4. library(Nebulosa)
  5. library(Seurat)
  6. library(readr)
  7. library(data.table)
  8. # 读取计数矩阵
  9. rawcount <- fread("./GSE183093/GSE183093_POAcountmatrix.tsv", header = TRUE, stringsAsFactors = FALSE, fill = TRUE)
  10. metadata <- fread("./GSE183093/GSE183093_POA_Cell_metadata.tsv.gz", header = TRUE)
  11. rawcount[1:5,1:5]
  12. POA_count <- as.data.frame(rawcount)
  13. POA_count[1:5,1:5]
  14. tail(colnames(POA_count))
  15. rownames(POA_count) = POA_count$barcode
  16. POA_count <- POA_count[,-1]
  17. POA_count[1:5,1:5]
  18. metadata[1:5,]
  19. # # 转置矩阵
  20. POA_count_t <- t(POA_count)
  21. # 创建 Seurat 对象
  22. # meta_list <- pull(metadata, "Barcode")
  23. # metadata <- metadata[, -1]
  24. # rownames(metadata) <- meta_list
  25. POA_seurat <- CreateSeuratObject(counts = POA_count_t, meta.data = as.data.frame(metadata), min.cells = 3, min.features = 200)
  26. # 对 Seurat 对象进行数据归一化
  27. POA_seurat <- POA_seurat %>% NormalizeData()
  28. [email hidden][1:5,]
  29. # 提取 Esr1 大于 0 的子集
  30. POA_subset_Esr1 <- subset(POA_seurat, subset = Esr1 > 0)
  31. # 读取另一个数据集
  32. POA_1 <- Read10X(data.dir = "./GSE113576/")
  33. POA_1 <- CreateSeuratObject(counts = POA_1, project = "POA", min.cells = 3, min.features = 200)
  34. # 对第二个数据集进行通用分析管道
  35. POA_1 <- POA_1 %>% NormalizeData()
  36. POA_subset_1 <- subset(POA_1, subset = Esr1 > 0)
  37. # 提取共同基因
  38. genes1 <- rownames(POA_subset_Esr1)
  39. genes2 <- rownames(POA_subset_1)
  40. common_genes <- intersect(genes1, genes2)
  41. POA_subset_Esr1_c <- subset(POA_subset_Esr1, features = common_genes)
  42. POA_subset_1_c <- subset(POA_subset_1, features = common_genes)
  43. # 合并变换后的数据
  44. merged_seurat <- merge(x = POA_subset_Esr1_c, y = POA_subset_1_c)
  45. # 对合并后的数据进行标准分析
  46. merged_seurat <- merged_seurat %>%
  47. NormalizeData() %>%
  48. FindVariableFeatures(selection.method = "vst", nfeatures = 2000) %>%
  49. ScaleData() %>%
  50. RunPCA(npcs = 50, verbose = FALSE)
  51. library(future)
  52. # check the current active plan
  53. plan()
  54. # change the current plan to access parallelization
  55. plan("multisession", workers = 32)
  56. plan()
  57. saveRDS(merged_seurat,'merged_seurat.rds')
  58. # qsave(merged_seurat,'merged_seurat.rds')
  59. setwd('e:/Personal_data/WYX/huangju/')
  60. merged_seurat = readRDS('merged_seurat.rds')
  61. # 使用 CCAIntegration 方法进行整合
  62. merged_seurat <- IntegrateLayers(
  63. object = merged_seurat, method = CCAIntegration,
  64. orig.reduction = "pca", new.reduction = "integrated.cca",
  65. verbose = FALSE
  66. )
  67. merged_seurat <- JoinLayers(merged_seurat)
  68. ElbowPlot(merged_seurat,reduction = "pca")
  69. # 运行 UMAP、找邻居、聚类
  70. merged_seurat <- RunUMAP(merged_seurat, dims = 1:20, reduction = "integrated.cca")
  71. merged_seurat <- FindNeighbors(merged_seurat, dims = 1:20, reduction = "integrated.cca")
  72. options(future.globals.maxSize = 1e11)
  73. merged_seurat <- FindClusters(merged_seurat, resolution = 0.13, reduction = "integrated.cca")
  74. [email hidden]$seurat_clusters = [email hidden]$RNA_snn_res.0.13
  75. [email hidden]$seurat_clusters = paste0('c',[email hidden]$seurat_clusters)
  76. # [email hidden][[email hidden]$seurat_clusters == 'c2',]$seurat_clusters = 'c10'
  77. # [email hidden][[email hidden]$seurat_clusters == 'c1',]$seurat_clusters = 'c2'
  78. # [email hidden][[email hidden]$seurat_clusters == 'c10',]$seurat_clusters = 'c1'
  79. library(ggplot2)
  80. DefaultAssay(merged_seurat) = 'INTE'
  81. DotPlot(merged_seurat, features = "Phf6", dot.scale = 12,group.by = 'seurat_clusters') + scale_color_gradientn(colours = colorRampPalette(c("white",'#F8E4D9','#E9AD93', "#D22D25")) (100))
  82. pdf('D:/PersonalData/WYX/huangju/202503.phf6.dotplot.pdf',width = 3.5,height = 6)
  83. DotPlot(merged_seurat, features = "Phf6", dot.scale = 12,group.by = 'seurat_clusters') + scale_color_gradientn(colours = colorRampPalette(c("white",'#F8E4D9','#E9AD93', "#D22D25")) (100))
  84. dev.off()
  85. DotPlot(merged_seurat,group.by = 'seurat_clusters', features = c('Esr1','Drp2','Pde1c','Serpine2','Slc17a6','St18','Bcl11b','Emx2os','Opn5','Zeb2','Otp',"Phf6",'Slc32a1'), dot.scale = 12) + scale_color_gradientn(colours = colorRampPalette(c("blue", "red")) (100))+RotatedAxis()
  86. DotPlot(merged_seurat,group.by = 'seurat_clusters', features = c('Esr1','Slc17a6',"Phf6",'Slc32a1'), dot.scale = 12) + scale_color_gradientn(colours = colorRampPalette(c("white",'#F8E4D9','#E9AD93', "#D22D25")) (100))+RotatedAxis()
  87. phf6 = subset(merged_seurat,subset = Phf6 > 0)
  88. # 运行 UMAP、找邻居、聚类
  89. phf6 <- RunUMAP(phf6, dims = 1:20, reduction = "integrated.cca")
  90. phf6 <- FindNeighbors(phf6, dims = 1:20, reduction = "integrated.cca")
  91. # options(future.globals.maxSize = 1e11)
  92. phf6 <- FindClusters(phf6, resolution = 0.1, reduction = "integrated.cca")
  93. phf6 <- FindClusters(phf6, resolution = 0.2, reduction = "integrated.cca")
  94. FeaturePlot(
  95. phf6,
  96. features = c("Esr1","Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2.5,split.by = 'Condition')
  97. FeaturePlot(
  98. phf6,
  99. features = c("Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2.5)
  100. unique(phf6$Condition)
  101. Idents(phf6) = 'Condition'
  102. phf6=subset(phf6, idents = c("Male", "FR", "FNR"))
  103. [email hidden]$sex = 'Female'
  104. [email hidden][[email hidden]$Condition=='Male',]$sex = 'Male'
  105. pdf('featureplot.pdf',width = 5,height = 10)
  106. FeaturePlot(
  107. phf6,
  108. features = c("Phf6",'Slc17a6','Slc32a1','Gad1'),max.cutoff = 2.5,split.by = 'sex')
  109. dev.off()
  110. DimPlot(phf6,group.by = "RNA_snn_res.0.1",split.by = 'sex')
  111. DimPlot(phf6,group.by = "RNA_snn_res.0.2")
  112. DimPlot(phf6,group.by = "RNA_snn_res.0.13")
  113. phf6$neutype = 'Glu'
  114. [email hidden][[email hidden]$RNA_snn_res.0.1 %in%c(0,1,4,5),]$neutype = 'Gaba'
  115. VlnPlot(phf6,features = c("Phf6",'Slc17a6','Slc32a1','Gad1'),group.by = 'RNA_snn_res.0.1',stack = T,pt.size = 0)
  116. DimPlot(phf6,group.by = "neutype")
  117. table(phf6$orig.ident)
  118. length([email hidden][phf6$neutype == 'Glu'& phf6$sex == 'Male',]$neutype)
  119. length([email hidden][phf6$neutype == 'Gaba'& phf6$sex == 'Male',]$neutype)
  120. length([email hidden][phf6$neutype == 'Glu'& phf6$sex == 'Female',]$neutype)
  121. length([email hidden][phf6$neutype == 'Gaba'& phf6$sex == 'Female',]$neutype)
  122. counts <- c(Glu = 859, Gaba = 2022)
  123. pct <- round(100 * counts / sum(counts), 1)
  124. labs <- paste0(names(counts), ": ", counts, " (", pct, "%)")
  125. pie(counts,
  126. labels = labs,
  127. clockwise = TRUE,
  128. col = c("#6BAED6", "#FD8D3C"),
  129. main = 'Male')
  130. counts <- c(Glu = 991, Gaba = 1976)
  131. pct <- round(100 * counts / sum(counts), 1)
  132. labs <- paste0(names(counts), ": ", counts, " (", pct, "%)")
  133. pie(counts,
  134. labels = labs,
  135. clockwise = TRUE,
  136. col = c("#6BAED6", "#FD8D3C"),
  137. main = 'Female')
  138. idents(phf6) = 'sex'
  139. phf5.f = subset(phf6, idents = 'Female')
  140. phf5.m = subset(phf6, idents = 'Male')
  141. FeaturePlot(
  142. phf5.f,
  143. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2.5)
  144. FeaturePlot(
  145. phf5.m,
  146. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2.5)
  147. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Gad1_featureplot_female_exp2.pdf',height = 7.4,width = 9)
  148. FeaturePlot(
  149. phf5.f,
  150. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2)
  151. dev.off()
  152. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Gad1_featureplot_male_exp2.pdf',height = 7.4,width = 9)
  153. FeaturePlot(
  154. phf5.m,
  155. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2)
  156. dev.off()
  157. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Slc32a1_featureplot_female_exp2.pdf',height = 7.4,width = 9)
  158. FeaturePlot(
  159. phf5.f,
  160. features = c('Esr1',"Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2)
  161. dev.off()
  162. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Slc32a1_featureplot_male_exp2.pdf',height = 7.4,width = 9)
  163. FeaturePlot(
  164. phf5.m,
  165. features = c('Esr1',"Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2)
  166. dev.off()
  167. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Gad1_featureplot_female_exp2.pdf',height = 7.4,width = 9)
  168. FeaturePlot(
  169. phf5.f,
  170. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2)
  171. dev.off()
  172. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Gad1_featureplot_male_exp2.pdf',height = 7.4,width = 9)
  173. FeaturePlot(
  174. phf5.m,
  175. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2)
  176. dev.off()
  177. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Slc32a1_featureplot_female_exp2.pdf',height = 7.4,width = 9)
  178. FeaturePlot(
  179. phf5.f,
  180. features = c('Esr1',"Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2)
  181. dev.off()
  182. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Slc32a1_featureplot_male_exp2.pdf',height = 7.4,width = 9)
  183. FeaturePlot(
  184. phf5.m,
  185. features = c('Esr1',"Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2)
  186. dev.off()
  187. FeaturePlot(
  188. phf6,
  189. features = c('Syt1'),max.cutoff = 2)
  190. setwd('D:/PersonalData/WYX/huangju/')
  191. for (i in c(0.05,0.1,0.2)) {
  192. phf6 = FindClusters(phf6,resolution = i)
  193. print(i)
  194. pdf(paste0('phf6_res',i,'.pdf'),width = 4.5,height = 4)
  195. print(DimPlot(phf6,group.by = paste0('RNA_snn_res.',i)))
  196. dev.off()
  197. marker= FindAllMarkers(phf6, group.by = paste0('RNA_snn_res.',i),only.pos = T,logfc.threshold = 1)
  198. marker= marker.res0.1[marker.res0.1$p_val_adj<0.05,]
  199. writexl::write_xlsx(marker,paste0('phf6_res.',i,'.xlsx'))
  200. }
  201. saveRDS(phf6,file = '202506phf6.rds')
  202. saveRDS(phf6,file = '202506phf6_2.rds')
  203. phf6 <- phf6 %>%
  204. NormalizeData() %>%
  205. FindVariableFeatures(selection.method = "vst", nfeatures = 2000) %>%
  206. ScaleData() %>%
  207. RunPCA(npcs = 10, verbose = FALSE)
  208. phf6 <- RunUMAP(phf6, dims = 1:10, reduction = "integrated.cca")
  209. phf6 <- FindNeighbors(phf6, dims = 1:10, reduction = "integrated.cca")
  210. Idents(phf6) = 'sex'
  211. phf5.f = subset(phf6, idents = 'Female')
  212. phf5.m = subset(phf6, idents = 'Male')
  213. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Gad1_featureplot_female_exp2.pdf',height = 7.4,width = 9)
  214. FeaturePlot(
  215. phf5.f,
  216. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2)
  217. dev.off()
  218. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Gad1_featureplot_male_exp2.pdf',height = 7.4,width = 9)
  219. FeaturePlot(
  220. phf5.m,
  221. features = c('Esr1',"Phf6",'Slc17a6','Gad1'),max.cutoff = 2)
  222. dev.off()
  223. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Slc32a1_featureplot_female_exp2.pdf',height = 7.4,width = 9)
  224. FeaturePlot(
  225. phf5.f,
  226. features = c('Esr1',"Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2)
  227. dev.off()
  228. pdf('D:/PersonalData/WYX/huangju/Esr1_Phf6_Slc17a6_Slc32a1_featureplot_male_exp2.pdf',height = 7.4,width = 9)
  229. FeaturePlot(
  230. phf5.m,
  231. features = c('Esr1',"Phf6",'Slc17a6','Slc32a1'),max.cutoff = 2)
  232. dev.off()
  233. for (i in c(0.05,0.1,0.2)) {
  234. phf6 = FindClusters(phf6,resolution = i)
  235. print(i)
  236. pdf(paste0('phf6_res',i,'.pdf'),width = 4.5,height = 4)
  237. print(DimPlot(phf6,group.by = paste0('RNA_snn_res.',i)))
  238. dev.off()
  239. marker= FindAllMarkers(phf6, group.by = paste0('RNA_snn_res.',i),only.pos = T,logfc.threshold = 1)
  240. marker= marker[marker$p_val_adj<0.05,]
  241. writexl::write_xlsx(marker,paste0('phf6_res.',i,'.xlsx'))
  242. }
  243. marker= FindAllMarkers(phf6, group.by = paste0('RNA_snn_res.0.1'),only.pos = T,logfc.threshold = 1)
  244. marker= marker[marker$p_val_adj<0.05,]
  245. marker %>%
  246. group_by(cluster) %>%
  247. dplyr::filter(avg_log2FC > 2) %>%
  248. slice_head(n = 3) %>%
  249. ungroup() -> top3
  250. DotPlot(phf6,c('Esr1','Phf6',top3$gene),group.by = 'RNA_snn_res.0.1')+RotatedAxis()
  251. VlnPlot(phf6,c('Esr1','Phf6',top5$gene),group.by = 'RNA_snn_res.0.1',stack=T)+RotatedAxis()
  252. selectgene = c('Esr1','Phf6', "Ntng1","Nts","Samd3","Adamts2","Emx2os","Bcl11b" ,"Lhx8","Pantr1",
  253. "Slc17a6","Hs3st2","Ptprb", "Nfix","Moxd1","St18")
  254. VlnPlot(phf6,selectgene,group.by = 'RNA_snn_res.0.1',stack=T)+RotatedAxis()
  255. # 寻找差异基因
  256. POA_markers <- FindAllMarkers(merged_seurat, only.pos = TRUE, min.pct = 0.4, logfc.threshold = 1)
  257. # 对每个细胞簇进行排序
  258. POA_markers_sorted <- POA_markers %>%
  259. arrange(cluster, p_val_adj)
  260. # 选择每个细胞簇中 avg_log2FC > 1 且 p_val_adj 最小的唯一基因
  261. selected_markers <- POA_markers_sorted %>%
  262. group_by(cluster) %>%
  263. filter(avg_log2FC> 1.2) %>%
  264. slice_min(order_by = p_val_adj) %>%
  265. distinct(cluster, .keep_all = TRUE)
  266. # 选择每个细胞簇中的 marker 基因
  267. selected_genes <- c(selected_markers$gene)
  268. # 使用 VlnPlot 绘制堆叠小提琴图
  269. # VlnPlot(
  270. # merged_seurat,
  271. # features = selected_genes,
  272. # stack = TRUE,
  273. # group.by = "seurat_clusters",
  274. # pt.size = 0,
  275. # combine = TRUE
  276. # ) +
  277. # ggtitle(NULL) + # Remove the title
  278. # theme(
  279. # axis.title.x = element_blank(), # Remove x-axis label
  280. # axis.text.x = element_blank(), # Remove x-axis ticks
  281. # axis.ticks.x = element_blank(), # Remove x-axis tick marks
  282. # strip.text.x = element_text(size=8,face = "plain",angle = +45, hjust = +0.5) # Rotate individual violin plot titles counterclockwise by 20 degrees and adjust horizontal justification
  283. # )
  284. DefaultAssay(merged_seurat) = "RNA"
  285. DotPlot(merged_seurat,assay = "RNA" ,features = c("Esr1","Phf6",selected_genes), cols = c("white", "red"), dot.scale = 12)+
  286. RotatedAxis()
  287. dotPlot <- DotPlot(merged_seurat, features = "Phf6", cols = c("white", "red"), dot.scale = 12)
  288. dotPlot
  289. plot_data <- data.frame(dotPlot$data,stringsAsFactors = FALSE) %>%
  290. select(pct.exp, id)
  291. # 将百分比转换为小数
  292. pct <- plot_data$pct.exp
  293. plot_data$id <- as.numeric(plot_data$id)
  294. #piechart
  295. # 设置图形布局,2行5列
  296. par(mfrow=c(2, 5))
  297. # 指定颜色
  298. custom_colors <- c()
  299. # 为每个百分比绘制饼图
  300. for (i in 1:length(pct)) {
  301. pie(c(pct[i], 100 - pct[i]), labels = "", col = c(custom_colors[i], "white"),lwd = 1,border = "#bcbdc0")
  302. title(paste("Pie Chart ", i))
  303. }
  304. # 恢复默认图形布局
  305. par(mfrow=c(1, 1))
  306. # seurat_clusters <- as.character(plot_data$id) # Convert to character if not already
  307. # Create a pie chart using ggplot2
  308. p<-FeaturePlot(
  309. merged_seurat,
  310. features = "Phf6",
  311. label = F
  312. )+
  313. plot_annotation(theme = theme(plot.title = element_text(size = 12,hjust = 0.5, face = "bold")))+
  314. scale_color_gradientn(colours = c("#BDBDBD", "lightgrey", "#d1c4e9", "#7e57c2", "#5e35b1","#4527a0","blue")
  315. )
  316. # a<-p+
  317. # labs(title = "")
  318. # a
  319. DimPlot(merged_seurat, label = F)
  320. # 使用 plot_density 函数绘制密度图
  321. plot_density(merged_seurat, features = "Phf6")
  322. # Assuming that 'Phf6' is a column in your Seurat object representing the expression of the Phf6 gene
  323. # Create a binary indicator for Phf6 expression greater than 0
  324. merged_seurat$Phf6_positive <- as.integer(merged_seurat$Phf6 > 0)
  325. #

2025POA_esr1_postive.r at commit e7c0308, no license · at the source

Overview

Authors: Jingjie Wang1,2, Bing Liu1,2, Xiaohua Wu1,2, Jingjing Sun1,2, Yaxin Wang3, Liang He3, Linhua Gan2, Xiangfeng Du1,2, Jingyu Ruan1,2, Lingzhi Pi1,2, Qing-Feng Wu3, Ju Huang1,2
  1. Department of Neurology, Songjiang Research Institute, Shanghai Key Laboratory of Emotions and Affective Disorders, Songjiang Hospital Affiliated to Shanghai Jiao Tong University School of Medicine, Shanghai, China
  2. Department of Anatomy and Physiology, Shanghai Jiao Tong University School of Medicine, Shanghai, China
  3. Laboratory of Integrative Physiology, Institute of Genetics and Developmental Biology, Chinese Academy of Sciences, Beijing, China
Journal: Nature communications, volume 17, issue 1, article 4468
Dates: received 26 May 2025; accepted 6 March 2026; published online 24 March 2026
Type: Research article · Language: English
License: CC BY-NC-ND
Identifiers: DOI 10.1038/s41467-026-70962-7 · PMID 41876547 · PMCID PMC13187260 · OpenAlex W7140161793
Open access: gold, a free copy (OpenAlex)
Status: code verified (how the code is found and verified)
Categories: mouse (organism), other condition (population), cellular / molecular (subfield)
Methods: Statistics, Smoothing, state filtering, decompositions, Machine learning, Preprocessing, Evoked potentials, Single-unit activity, calcium imaging
Keywords: Neural circuits, Molecular neuroscience
MeSH: Energy Metabolism*, Homeodomain Proteins*, Physical Conditioning, Animal*, Preoptic Area*, Animals, Estrogen Receptor alpha, Estrogens, Female, Male, Mice, Mice, Inbred C57BL, Mice, Knockout, Neurons, Obesity (* major topic)
Topic: Hypothalamic control of reproductive hormones (Reproductive Medicine, Medicine), according to OpenAlex
Funding: National Natural Science Foundation of China (National Science Foundation of China) (32300838, 81771215, 32070957, 32200820); Ministry of Science and Technology of the People's Republic of China (Chinese Ministry of Science and Technology) (2021ZD0202800/01)
Citations: not cited yet (Europe PMC); 59 references in the paper

Abstract

The abstract is not reproduced here: the paper's license (CC BY-NC-ND) does not allow it. Read it in the paper, at the publisher or on Europe PMC.

Repositories

Its files are read in the Code ↔ Paper reader above, with 3 matches between paragraphs and lines of code.

echo1318/MPOA_Phf6_Esr1

License: none: the authors keep all their rights
State: the link answers, verified on 30 September 2026
Evidence: files inventoried
Commit: e7c0308232cb97d067d3144eb89737967c0eea70, 18 December 2025
Languages: R (2)
Size: 3 files, 2 scripts
Software Heritage: not archived
Found in: “Code availability”
Holds: README
Not found: license file, CITATION.cff, environment file, tests, continuous integration, documentation
Tools: ggplot2 (2 files), tidyverse (2 files), data.table (1 file), pheatmap (1 file), Seurat (1 file)
Availability: 1 check, the latest on 30 September 2026: the link answers
  • 30 September 2026: the link answers
3 files

Zenodo 17972970

License: CC-BY-4.0
State: the link answers, verified on 30 September 2026
Evidence: files inventoried
Size: 1 file
Software Heritage: not checked
Found in: “Code availability”
Not found: README, license file, CITATION.cff, environment file, tests, continuous integration, documentation
Tools: ggplot2 (2 files), tidyverse (2 files), data.table (1 file), pheatmap (1 file), Seurat (1 file)
Availability: 1 check, the latest on 30 September 2026: the link answers (HTTP 200)
  • 30 September 2026: the link answers (HTTP 200)
3 files
At the source:

Code availability statement

The paper has a code availability statement. Its license (CC BY-NC-ND) does not allow reproducing it here; in short, from what the harvester recognized in it:

Read it in the paper: doi.org/10.1038/s41467-026-70962-7.

Tracing map

Proposed by the machine: these links were found in the paper and verified at the source, without human review. The map will receive a Zenodo DOI once one of the paper's authors has validated it with their ORCID.

What the map holds:

  • 2 repositories of the authors' code, each at its verified commit, with its license and how the link was found in the paper;
  • 4 scripts, each with its path and the digest of its content;
  • 3 matches between paragraphs of the paper and lines of the code (method lexical-v1);
  • neither the text of the paper nor the code itself.

Its JSON (tracing-map.json) is deposited on Zenodo with its DOI once the map is validated.

Data

Datasets cited

Data availability statement

The paper has a data availability statement. Its license (CC BY-NC-ND) does not allow reproducing it here; in short, from what the harvester recognized in it:

Read it in the paper: doi.org/10.1038/s41467-026-70962-7.

Versions

The history of this record: each version stored by the harvester or made by a correction of its authors or of the maintainers of its code, and what changed in its facts. The texts of the paper (its abstract, its availability statements) are not part of it; versions that changed only those are not listed.

Version 1, 30 September 2026: the first record

Recorded: type, language, journal, volume, issue, pages, dates, 12 authors, 2 keywords, 14 MeSH terms, 2 funders, 55 references.

Cite

This paper

Wang, J., Liu, B., Wu, X., Sun, J., Wang, Y., He, L., Gan, L., Du, X., Ruan, J., Pi, L., Wu, Q.-F., & Huang, J. (2026). Regulation of physical activity and energy expenditure through Phf6 in the medial preoptic area. Nature communications, 17(1), 4468. https://doi.org/10.1038/s41467-026-70962-7

BibTeX

@article{wang2026regulation,
author = {Wang, Jingjie and Liu, Bing and Wu, Xiaohua and Sun, Jingjing and Wang, Yaxin and He, Liang and Gan, Linhua and Du, Xiangfeng and Ruan, Jingyu and Pi, Lingzhi and Wu, Qing-Feng and Huang, Ju},
title = {{Regulation of physical activity and energy expenditure through Phf6 in the medial preoptic area}},
journal = {Nature communications},
year = {2026},
month = mar,
volume = {17},
number = {1},
pages = {4468},
publisher = {Nature Publishing Group},
issn = {2041-1723},
doi = {10.1038/s41467-026-70962-7},
url = {https://doi.org/10.1038/s41467-026-70962-7},
pmid = {41876547},
pmcid = {PMC13187260}
}

RIS

TY - JOUR
AU - Wang, Jingjie
AU - Liu, Bing
AU - Wu, Xiaohua
AU - Sun, Jingjing
AU - Wang, Yaxin
AU - He, Liang
AU - Gan, Linhua
AU - Du, Xiangfeng
AU - Ruan, Jingyu
AU - Pi, Lingzhi
AU - Wu, Qing-Feng
AU - Huang, Ju
TI - Regulation of physical activity and energy expenditure through Phf6 in the medial preoptic area
T2 - Nature communications
J2 - Nat Commun
PY - 2026
DA - 2026/03/24
VL - 17
IS - 1
SP - 4468
SN - 2041-1723
PB - Nature Publishing Group
DO - 10.1038/s41467-026-70962-7
UR - https://doi.org/10.1038/s41467-026-70962-7
LA - en
ER -

CSL-JSON

{
"id": "10.1038/s41467-026-70962-7",
"type": "article-journal",
"title": "Regulation of physical activity and energy expenditure through Phf6 in the medial preoptic area",
"container-title": "Nature communications",
"author": [
{
"family": "Wang",
"given": "Jingjie"
},
{
"family": "Liu",
"given": "Bing"
},
{
"family": "Wu",
"given": "Xiaohua"
},
{
"family": "Sun",
"given": "Jingjing"
},
{
"family": "Wang",
"given": "Yaxin"
},
{
"family": "He",
"given": "Liang"
},
{
"family": "Gan",
"given": "Linhua"
},
{
"family": "Du",
"given": "Xiangfeng"
},
{
"family": "Ruan",
"given": "Jingyu"
},
{
"family": "Pi",
"given": "Lingzhi"
},
{
"family": "Wu",
"given": "Qing-Feng"
},
{
"family": "Huang",
"given": "Ju"
}
],
"container-title-short": "Nat Commun",
"volume": "17",
"issue": "1",
"page": "4468",
"DOI": "10.1038/s41467-026-70962-7",
"PMID": "41876547",
"PMCID": "PMC13187260",
"ISSN": "2041-1723",
"publisher": "Nature Publishing Group",
"URL": "https://doi.org/10.1038/s41467-026-70962-7",
"language": "en",
"issued": {
"date-parts": [
[
2026,
3,
24
]
]
}
}

The tracing map gets a citation of its own once an author has validated it and it has a DOI.

Similar papers

The papers with a page that share the most with this one: the tools found in their code, their categories, datasets, cited references and authors, the rarest counting most.

[1] doi:10.1038/s41380-025-03300-w
Regulation of stress susceptibility by chromatin-binding protein PHF6 in the pituitary intermediate lobe.
Journal: Molecular psychiatry
In common: mouse, cellular / molecular, 5 references, author Ju Huang
[2] doi:10.1038/s44319-024-00082-0
PHF6-mediated transcriptional control of NSC via Ephrin receptors is impaired in the intellectual disability syndrome BFLS.
Journal: EMBO reports
In common: other condition, mouse, cellular / molecular, 7 references
[3] doi:10.1016/j.isci.2023.107918 [code]
Feeding neurons integrate metabolic and reproductive states in mice.
Journal: iScience
In common: pheatmap, Seurat, ggplot2, 1 other tool, mouse, cellular / molecular, 4 references
[4] doi:10.1038/s42003-026-09723-7 [code]
Obesogenic effects of warm temperature involve feeding adaptation by preoptic area leptin receptor neurons.
Journal: Communications biology
In common: data.table, tidyverse, other condition, mouse, cellular / molecular, 5 references
[5] doi:10.7554/elife.106347 [code]
Esr1-dependent signaling and transcriptional maturation in the medial preoptic area of the hypothalamus shape the development of mating behavior during adolescence.
Journal: eLife
In common: pheatmap, Seurat, ggplot2, 1 other tool, mouse, 4 references
[6] doi:10.1126/sciadv.abq2987 [code]
Hierarchical deployment of Tbx3 dictates the identity of hypothalamic KNDy neurons to control puberty onset.
Journal: Science advances
In common: pheatmap, Seurat, ggplot2, 1 other tool, mouse, author Qing-Feng Wu
[7] doi:10.1016/j.celrep.2025.116877 [code]
Spatially resolved molecular sex differences at single-cell resolution in the adult human ventromedial and arcuate hypothalamus.
Journal: Cell reports
In common: pheatmap, Seurat, data.table, 2 other tools, cellular / molecular, 3 references
[8] doi:10.7554/elife.91765 [code]
Post-ejaculatory inhibition of female sexual drive via heterogeneous neuronal ensembles in the medial preoptic area.
Journal: eLife
In common: Seurat, ggplot2, tidyverse, mouse, 4 references
[9] doi:10.1038/s41586-022-04686-1 [code]
Gene regulation by gonadal hormone receptors underlies brain sex differences.
Journal: Nature
In common: Seurat, data.table, ggplot2, 1 other tool, mouse, cellular / molecular, 3 references
[10] doi:10.1038/s41467-025-68010-x [code]
High-fat diet disrupts a septal control on feeding to promote obesity in male mice.
Journal: Nature communications
In common: pheatmap, Seurat, ggplot2, 1 other tool, other condition, mouse, cellular / molecular, 2 references

Contribute

The authors of this paper can claim it, correct its record and validate its tracing map, and the maintainers of its code (its owner, or a public member of its organization) correct what it says of their repository; anyone signed in can ask for its removal. Every request goes to OSCR's own machine, which answers it; your account page follows them.

Sign in with ORCID to claim this paper as one of its authors, correct its record or validate its tracing map: when the paper's metadata lists your ORCID iD, you are recognized at once. Maintainers of its code: sign in with GitHub, then claim the repository on your account page.

Add the badge to the code's README

OSCR: the badge of this paper

If you are an author or a maintainer of this paper's code, you can add this badge. It says what OSCR knows of the paper (its code, its validated tracing map) and links the code to this page. Paste one of these snippets under the README's title. Keep the two marks around it, so that the badge can be replaced in place and is never added twice. OSCR changes nothing in your repository.

Markdown
<!-- oscr-badge:start -->
[![OSCR](https://openscicode.org/badge/doi/10.1038/s41467-026-70962-7.svg)](https://openscicode.org/badge/doi/10.1038/s41467-026-70962-7)
<!-- oscr-badge:end -->
reStructuredText
.. oscr-badge:start

.. image:: https://openscicode.org/badge/doi/10.1038/s41467-026-70962-7.svg
   :target: https://openscicode.org/badge/doi/10.1038/s41467-026-70962-7
   :alt: OSCR

.. oscr-badge:end
HTML
<!-- oscr-badge:start -->
<a href="https://openscicode.org/badge/doi/10.1038/s41467-026-70962-7"><img src="https://openscicode.org/badge/doi/10.1038/s41467-026-70962-7.svg" alt="OSCR"></a>
<!-- oscr-badge:end -->

On GitHub, open the README, choose Edit (the pencil), paste the snippet under the title, then "Commit changes".

If you choose to, you can have the badge kept up to date for you, with oscr badge --write from the command line or with the GitHub Action in your repository's workflows. Every other form and option (a card, AsciiDoc, LaTeX, shields.io) is on the badge page.

Request its removal

To ask OSCR to remove this record, the copies of its authors' scripts or its tracing map, use the removal request page: signed in, you say who you are, what to remove and why, then review and confirm the request. Published rules decide every request (how).

Discussion, reproductions, activity

Discussion: code errors and mismatches between the code and the paper about this paper and its code, from readers and its authors, beside the paper and its tracing map.

Report a mismatch between the code and the paper · Report a code error (signed in)

Reproductions: reports from readers who ran the authors' code and did not get the paper's result, what they ran, with which environment, commit and data.

Report a reproduction failure (signed in)

Versions of its code: the releases of its code tied to a version of this paper (the preprint, the accepted manuscript, the version of record…), each with the tracing map versioned with it.

Activity: what happens around this paper: new versions of its record, its map's validation, discussions and reproductions. It opens with sign-in.